;;;; Generated on 5/21/2019 at 13:37:09 (UTC+1).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%SLASDA %SLASDA %%SLASDQ %SLASDQ %%SLASDT %SLASDT
  %%SLASET %SLASET %%SLASQ1 %SLASQ1 %%SLASQ2 %SLASQ2 %%SLASQ3 %SLASQ3 %%SLASQ4
  %SLASQ4 %%SLASQ5 %SLASQ5 %%SLASQ6 %SLASQ6 %%SLASR %SLASR %%SLASRT %SLASRT
  %%SLASSQ %SLASSQ %%SLASV2 %SLASV2 %%SLASWLQ %SLASWLQ %%SLASWP %SLASWP
  %%SLASY2 %SLASY2 %%SLASYF %SLASYF %%SLASYF_AA %SLASYF_AA %%SLASYF_RK
  %SLASYF_RK %%SLASYF_ROOK %SLASYF_ROOK %%SLATBS %SLATBS %%SLATDF %SLATDF
  %%SLATPS %SLATPS %%SLATRD %SLATRD %%SLATRS %SLATRS %%SLATRZ %SLATRZ %%SLATSQR
  %SLATSQR %%SLAUU2 %SLAUU2 %%SLAUUM %SLAUUM %%SOPGTR %SOPGTR %%SOPMTR %SOPMTR
  %%SORBDB %SORBDB %%SORBDB1 %SORBDB1 %%SORBDB2 %SORBDB2 %%SORBDB3 %SORBDB3
  %%SORBDB4 %SORBDB4 %%SORBDB5 %SORBDB5 %%SORBDB6 %SORBDB6 %%SORCSD %SORCSD
  %%SORCSD2BY1 %SORCSD2BY1 %%SORG2L %SORG2L %%SORG2R %SORG2R %%SORGBR %SORGBR
  %%SORGHR %SORGHR %%SORGL2 %SORGL2 %%SORGLQ %SORGLQ %%SORGQL %SORGQL %%SORGQR
  %SORGQR %%SORGR2 %SORGR2 %%SORGRQ %SORGRQ %%SORGTR %SORGTR %%SORM22 %SORM22
  %%SORM2L %SORM2L %%SORM2R %SORM2R %%SORMBR %SORMBR %%SORMHR %SORMHR %%SORML2
  %SORML2 %%SORMLQ %SORMLQ %%SORMQL %SORMQL %%SORMQR %SORMQR %%SORMR2 %SORMR2
  %%SORMR3 %SORMR3 %%SORMRQ %SORMRQ %%SORMRZ %SORMRZ %%SORMTR %SORMTR %%SPBCON
  %SPBCON %%SPBEQU %SPBEQU %%SPBRFS %SPBRFS %%SPBSTF %SPBSTF %%SPBSV %SPBSV
  %%SPBSVX %SPBSVX %%SPBTF2 %SPBTF2 %%SPBTRF %SPBTRF %%SPBTRS %SPBTRS %%SPFTRF
  %SPFTRF %%SPFTRI %SPFTRI %%SPFTRS %SPFTRS %%SPOCON %SPOCON %%SPOEQU %SPOEQU
  %%SPOEQUB %SPOEQUB %%SPORFS %SPORFS %%SPORFSX %SPORFSX %%SPOSV %SPOSV
  %%SPOSVX %SPOSVX %%SPOSVXX %SPOSVXX %%SPOTF2 %SPOTF2 %%SPOTRF %SPOTRF
  %%SPOTRF2 %SPOTRF2 %%SPOTRI %SPOTRI %%SPOTRS %SPOTRS %%SPPCON %SPPCON
  %%SPPEQU %SPPEQU %%SPPRFS %SPPRFS %%SPPSV %SPPSV %%SPPSVX %SPPSVX %%SPPTRF
  %SPPTRF %%SPPTRI %SPPTRI %%SPPTRS %SPPTRS %%SPSTF2 %SPSTF2 %%SPSTRF %SPSTRF
  %%SPTCON %SPTCON %%SPTEQR %SPTEQR %%SPTRFS %SPTRFS %%SPTSV %SPTSV %%SPTSVX
  %SPTSVX %%SPTTRF %SPTTRF %%SPTTRS %SPTTRS %%SPTTS2 %SPTTS2 %%SRSCL %SRSCL
  %%SSB2ST_KERNELS %SSB2ST_KERNELS %%SSBEV %SSBEV %%SSBEV_2STAGE %SSBEV_2STAGE
  %%SSBEVD %SSBEVD %%SSBEVD_2STAGE %SSBEVD_2STAGE %%SSBEVX %SSBEVX
  %%SSBEVX_2STAGE %SSBEVX_2STAGE %%SSBGST %SSBGST %%SSBGV %SSBGV %%SSBGVD
  %SSBGVD %%SSBGVX %SSBGVX %%SSBTRD %SSBTRD %%SSFRK %SSFRK %%SSPCON %SSPCON
  %%SSPEV %SSPEV %%SSPEVD %SSPEVD %%SSPEVX %SSPEVX %%SSPGST %SSPGST %%SSPGV
  %SSPGV %%SSPGVD %SSPGVD %%SSPGVX %SSPGVX %%SSPRFS %SSPRFS %%SSPSV %SSPSV
  %%SSPSVX %SSPSVX %%SSPTRD %SSPTRD %%SSPTRF %SSPTRF %%SSPTRI %SSPTRI %%SSPTRS
  %SSPTRS %%SSTEBZ %SSTEBZ %%SSTEDC %SSTEDC %%SSTEGR %SSTEGR %%SSTEIN %SSTEIN
  %%SSTEMR %SSTEMR %%SSTEQR %SSTEQR %%SSTERF %SSTERF %%SSTEV %SSTEV %%SSTEVD
  %SSTEVD %%SSTEVR %SSTEVR %%SSTEVX %SSTEVX %%SSYCON %SSYCON %%SSYCON_3
  %SSYCON_3 %%SSYCON_ROOK %SSYCON_ROOK %%SSYCONV %SSYCONV %%SSYCONVF %SSYCONVF
  %%SSYCONVF_ROOK %SSYCONVF_ROOK %%SSYEQUB %SSYEQUB %%SSYEV %SSYEV
  %%SSYEV_2STAGE %SSYEV_2STAGE %%SSYEVD %SSYEVD %%SSYEVD_2STAGE %SSYEVD_2STAGE
  %%SSYEVR %SSYEVR %%SSYEVR_2STAGE %SSYEVR_2STAGE %%SSYEVX %SSYEVX
  %%SSYEVX_2STAGE %SSYEVX_2STAGE %%SSYGS2 %SSYGS2 %%SSYGST %SSYGST %%SSYGV
  %SSYGV %%SSYGV_2STAGE %SSYGV_2STAGE %%SSYGVD %SSYGVD %%SSYGVX %SSYGVX
  %%SSYRFS %SSYRFS %%SSYRFSX %SSYRFSX %%SSYSV %SSYSV %%SSYSV_AA %SSYSV_AA
  %%SSYSV_AA_2STAGE %SSYSV_AA_2STAGE %%SSYSV_RK %SSYSV_RK %%SSYSV_ROOK
  %SSYSV_ROOK %%SSYSVX %SSYSVX %%SSYSVXX %SSYSVXX %%SSYSWAPR %SSYSWAPR %%SSYTD2
  %SSYTD2 %%SSYTF2 %SSYTF2 %%SSYTF2_RK %SSYTF2_RK %%SSYTF2_ROOK %SSYTF2_ROOK
  %%SSYTRD %SSYTRD %%SSYTRD_2STAGE %SSYTRD_2STAGE %%SSYTRD_SY2SB %SSYTRD_SY2SB
  %%SSYTRF %SSYTRF %%SSYTRF_AA %SSYTRF_AA %%SSYTRF_AA_2STAGE %SSYTRF_AA_2STAGE
  %%SSYTRF_RK %SSYTRF_RK %%SSYTRF_ROOK %SSYTRF_ROOK %%SSYTRI %SSYTRI %%SSYTRI2
  %SSYTRI2 %%SSYTRI2X %SSYTRI2X %%SSYTRI_3 %SSYTRI_3 %%SSYTRI_3X %SSYTRI_3X
  %%SSYTRI_ROOK %SSYTRI_ROOK %%SSYTRS %SSYTRS %%SSYTRS2 %SSYTRS2 %%SSYTRS_3
  %SSYTRS_3 %%SSYTRS_AA %SSYTRS_AA %%SSYTRS_AA_2STAGE %SSYTRS_AA_2STAGE
  %%SSYTRS_ROOK %SSYTRS_ROOK %%STBCON %STBCON %%STBRFS %STBRFS %%STBTRS %STBTRS
  %%STFSM %STFSM %%STFTRI %STFTRI %%STFTTP %STFTTP %%STFTTR %STFTTR %%STGEVC
  %STGEVC %%STGEX2 %STGEX2 %%STGEXC %STGEXC %%STGSEN %STGSEN %%STGSJA %STGSJA
  %%STGSNA %STGSNA %%STGSY2 %STGSY2 %%STGSYL %STGSYL %%STPCON %STPCON %%STPLQT
  %STPLQT %%STPLQT2 %STPLQT2 %%STPMLQT %STPMLQT %%STPMQRT %STPMQRT %%STPQRT
  %STPQRT %%STPQRT2 %STPQRT2 %%STPRFB %STPRFB %%STPRFS %STPRFS %%STPTRI %STPTRI
  %%STPTRS %STPTRS %%STPTTF %STPTTF %%STPTTR %STPTTR %%STRCON %STRCON %%STREVC
  %STREVC %%STREVC3 %STREVC3 %%STREXC %STREXC %%STRRFS %STRRFS %%STRSEN %STRSEN
  %%STRSNA %STRSNA %%STRSYL %STRSYL %%STRTI2 %STRTI2 %%STRTRI %STRTRI %%STRTRS
  %STRTRS %%STRTTF %STRTTF %%STRTTP %STRTTP %%STZRZF %STZRZF))

(CFFI:DEFCFUN ("slasda_" %%SLASDA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (SQRE :POINTER)
  (D :POINTER)
  (E :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (K :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (POLES :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (PERM :POINTER)
  (GIVNUM :POINTER)
  (C :POINTER)
  (S :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASDA
                   (ICOMPQ SMLSIZ N SQRE D E U LDU VT K DIFL DIFR Z POLES
                    GIVPTR GIVCOL LDGCOL PERM GIVNUM C S WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14599 ':INT32)
                              (SMLSIZ-REF14600 ':INT32) (N-REF14601 ':INT32)
                              (SQRE-REF14602 ':INT32) (LDU-REF14606 ':INT32)
                              (LDGCOL-REF14615 ':INT32) (INFO-REF14622 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14599 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF14600 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14601 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14602 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14606 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF14615 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14622 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14603 D) (E-REF14604 E)
                                            (U-REF14605 U) (VT-REF14607 VT)
                                            (K-REF14608 K) (DIFL-REF14609 DIFL)
                                            (DIFR-REF14610 DIFR) (Z-REF14611 Z)
                                            (POLES-REF14612 POLES)
                                            (GIVPTR-REF14613 GIVPTR)
                                            (GIVCOL-REF14614 GIVCOL)
                                            (PERM-REF14616 PERM)
                                            (GIVNUM-REF14617 GIVNUM)
                                            (C-REF14618 C) (S-REF14619 S)
                                            (WORK-REF14620 WORK)
                                            (IWORK-REF14621 IWORK))
      (%%SLASDA ICOMPQ-REF14599 SMLSIZ-REF14600 N-REF14601 SQRE-REF14602
                D-REF14603 E-REF14604 U-REF14605 LDU-REF14606 VT-REF14607
                K-REF14608 DIFL-REF14609 DIFR-REF14610 Z-REF14611
                POLES-REF14612 GIVPTR-REF14613 GIVCOL-REF14614 LDGCOL-REF14615
                PERM-REF14616 GIVNUM-REF14617 C-REF14618 S-REF14619
                WORK-REF14620 IWORK-REF14621 INFO-REF14622))))

(CFFI:DEFCFUN ("slasdq_" %%SLASDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (SQRE :POINTER)
  (N :POINTER)
  (NCVT :POINTER)
  (NRU :POINTER)
  (NCC :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASDQ
                   (UPLO SQRE N NCVT NRU NCC D E VT LDVT U LDU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SQRE-REF14624 ':INT32) (N-REF14625 ':INT32)
                              (NCVT-REF14626 ':INT32) (NRU-REF14627 ':INT32)
                              (NCC-REF14628 ':INT32) (LDVT-REF14632 ':INT32)
                              (LDU-REF14634 ':INT32) (LDC-REF14636 ':INT32)
                              (INFO-REF14638 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14624 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14625 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF14626 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF14627 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF14628 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14632 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14634 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14636 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14638 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14629 D) (E-REF14630 E)
                                            (VT-REF14631 VT) (U-REF14633 U)
                                            (C-REF14635 C) (WORK-REF14637 WORK))
      (%%SLASDQ UPLO SQRE-REF14624 N-REF14625 NCVT-REF14626 NRU-REF14627
                NCC-REF14628 D-REF14629 E-REF14630 VT-REF14631 LDVT-REF14632
                U-REF14633 LDU-REF14634 C-REF14635 LDC-REF14636 WORK-REF14637
                INFO-REF14638))))

(CFFI:DEFCFUN ("slasdt_" %%SLASDT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (LVL :POINTER)
  (ND :POINTER)
  (INODE :POINTER)
  (NDIML :POINTER)
  (NDIMR :POINTER)
  (MSUB :POINTER))

(COMMON-LISP:DEFUN %SLASDT (N LVL ND INODE NDIML NDIMR MSUB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LVL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        NDIML)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        NDIMR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MSUB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14639 ':INT32) (LVL-REF14640 ':INT32)
                              (ND-REF14641 ':INT32) (MSUB-REF14645 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14639 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LVL-REF14640 :INT32) LVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF14641 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF MSUB-REF14645 :INT32) MSUB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((INODE-REF14642 INODE)
                                            (NDIML-REF14643 NDIML)
                                            (NDIMR-REF14644 NDIMR))
      (%%SLASDT N-REF14639 LVL-REF14640 ND-REF14641 INODE-REF14642
                NDIML-REF14643 NDIMR-REF14644 MSUB-REF14645))))

(CFFI:DEFCFUN ("slaset_" %%SLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %SLASET (UPLO M N ALPHA BETA A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASET)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14647 ':INT32) (N-REF14648 ':INT32)
                              (ALPHA-REF14649 ':FLOAT) (BETA-REF14650 ':FLOAT)
                              (LDA-REF14652 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14647 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14648 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14649 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14650 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14652 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14651 A))
      (%%SLASET UPLO M-REF14647 N-REF14648 ALPHA-REF14649 BETA-REF14650
                A-REF14651 LDA-REF14652))))

(CFFI:DEFCFUN ("slasq1_" %%SLASQ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASQ1 (N D E WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14653 ':INT32) (INFO-REF14657 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14653 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14657 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14654 D) (E-REF14655 E)
                                            (WORK-REF14656 WORK))
      (%%SLASQ1 N-REF14653 D-REF14654 E-REF14655 WORK-REF14656 INFO-REF14657))))

(CFFI:DEFCFUN ("slasq2_" %%SLASQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (Z :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASQ2 (N Z INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14658 ':INT32) (INFO-REF14660 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14658 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14660 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14659 Z))
      (%%SLASQ2 N-REF14658 Z-REF14659 INFO-REF14660))))

(CFFI:DEFCFUN ("slasq3_" %%SLASQ3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (I0 :POINTER)
  (N0 :POINTER)
  (Z :POINTER)
  (PP :POINTER)
  (DMIN :POINTER)
  (SIGMA :POINTER)
  (DESIG :POINTER)
  (QMAX :POINTER)
  (NFAIL :POINTER)
  (ITER :POINTER)
  (NDIV :POINTER)
  (IEEE :POINTER)
  (TTYPE :POINTER)
  (DMIN1 :POINTER)
  (DMIN2 :POINTER)
  (DN :POINTER)
  (DN1 :POINTER)
  (DN2 :POINTER)
  (G :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %SLASQ3
                   (I0 N0 Z PP DMIN SIGMA DESIG QMAX NFAIL ITER NDIV IEEE TTYPE
                    DMIN1 DMIN2 DN DN1 DN2 G TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DESIG)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT QMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NDIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IEEE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF14661 ':INT32) (N0-REF14662 ':INT32)
                              (PP-REF14664 ':INT32) (DMIN-REF14665 ':FLOAT)
                              (SIGMA-REF14666 ':FLOAT) (DESIG-REF14667 ':FLOAT)
                              (QMAX-REF14668 ':FLOAT) (NFAIL-REF14669 ':INT32)
                              (ITER-REF14670 ':INT32) (NDIV-REF14671 ':INT32)
                              (IEEE-REF14672 ':INT32) (TTYPE-REF14673 ':INT32)
                              (DMIN1-REF14674 ':FLOAT) (DMIN2-REF14675 ':FLOAT)
                              (DN-REF14676 ':FLOAT) (DN1-REF14677 ':FLOAT)
                              (DN2-REF14678 ':FLOAT) (G-REF14679 ':FLOAT)
                              (TAU-REF14680 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF14661 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF14662 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF14664 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF14665 :FLOAT) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14666 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF DESIG-REF14667 :FLOAT) DESIG)
    (COMMON-LISP:SETF (CFFI:MEM-REF QMAX-REF14668 :FLOAT) QMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF NFAIL-REF14669 :INT32) NFAIL)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF14670 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF NDIV-REF14671 :INT32) NDIV)
    (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF14672 :INT32) IEEE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF14673 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF14674 :FLOAT) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF14675 :FLOAT) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF14676 :FLOAT) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF14677 :FLOAT) DN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF14678 :FLOAT) DN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14679 :FLOAT) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14680 :FLOAT) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14663 Z))
      (%%SLASQ3 I0-REF14661 N0-REF14662 Z-REF14663 PP-REF14664 DMIN-REF14665
                SIGMA-REF14666 DESIG-REF14667 QMAX-REF14668 NFAIL-REF14669
                ITER-REF14670 NDIV-REF14671 IEEE-REF14672 TTYPE-REF14673
                DMIN1-REF14674 DMIN2-REF14675 DN-REF14676 DN1-REF14677
                DN2-REF14678 G-REF14679 TAU-REF14680))))

(CFFI:DEFCFUN ("slasq4_" %%SLASQ4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (I0 :POINTER)
  (N0 :POINTER)
  (Z :POINTER)
  (PP :POINTER)
  (N0IN :POINTER)
  (DMIN :POINTER)
  (DMIN1 :POINTER)
  (DMIN2 :POINTER)
  (DN :POINTER)
  (DN1 :POINTER)
  (DN2 :POINTER)
  (TAU :POINTER)
  (TTYPE :POINTER)
  (G :POINTER))

(COMMON-LISP:DEFUN %SLASQ4
                   (I0 N0 Z PP N0IN DMIN DMIN1 DMIN2 DN DN1 DN2 TAU TTYPE G)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0IN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF14681 ':INT32) (N0-REF14682 ':INT32)
                              (PP-REF14684 ':INT32) (N0IN-REF14685 ':INT32)
                              (DMIN-REF14686 ':FLOAT) (DMIN1-REF14687 ':FLOAT)
                              (DMIN2-REF14688 ':FLOAT) (DN-REF14689 ':FLOAT)
                              (DN1-REF14690 ':FLOAT) (DN2-REF14691 ':FLOAT)
                              (TAU-REF14692 ':FLOAT) (TTYPE-REF14693 ':INT32)
                              (G-REF14694 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF14681 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF14682 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF14684 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0IN-REF14685 :INT32) N0IN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF14686 :FLOAT) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF14687 :FLOAT) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF14688 :FLOAT) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF14689 :FLOAT) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF14690 :FLOAT) DN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF14691 :FLOAT) DN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14692 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF14693 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14694 :FLOAT) G)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14683 Z))
      (%%SLASQ4 I0-REF14681 N0-REF14682 Z-REF14683 PP-REF14684 N0IN-REF14685
                DMIN-REF14686 DMIN1-REF14687 DMIN2-REF14688 DN-REF14689
                DN1-REF14690 DN2-REF14691 TAU-REF14692 TTYPE-REF14693
                G-REF14694))))

(CFFI:DEFCFUN ("slasq5_" %%SLASQ5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (I0 :POINTER)
  (N0 :POINTER)
  (Z :POINTER)
  (PP :POINTER)
  (TAU :POINTER)
  (SIGMA :POINTER)
  (DMIN :POINTER)
  (DMIN1 :POINTER)
  (DMIN2 :POINTER)
  (DN :POINTER)
  (DNM1 :POINTER)
  (DNM2 :POINTER)
  (IEEE :POINTER)
  (EPS :POINTER))

(COMMON-LISP:DEFUN %SLASQ5
                   (I0 N0 Z PP TAU SIGMA DMIN DMIN1 DMIN2 DN DNM1 DNM2 IEEE
                    EPS)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DNM1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DNM2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IEEE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF14695 ':INT32) (N0-REF14696 ':INT32)
                              (PP-REF14698 ':INT32) (TAU-REF14699 ':FLOAT)
                              (SIGMA-REF14700 ':FLOAT) (DMIN-REF14701 ':FLOAT)
                              (DMIN1-REF14702 ':FLOAT) (DMIN2-REF14703 ':FLOAT)
                              (DN-REF14704 ':FLOAT) (DNM1-REF14705 ':FLOAT)
                              (DNM2-REF14706 ':FLOAT) (IEEE-REF14707 ':INT32)
                              (EPS-REF14708 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF14695 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF14696 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF14698 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14699 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14700 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF14701 :FLOAT) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF14702 :FLOAT) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF14703 :FLOAT) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF14704 :FLOAT) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF14705 :FLOAT) DNM1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF14706 :FLOAT) DNM2)
    (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF14707 :INT32) IEEE)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF14708 :FLOAT) EPS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14697 Z))
      (%%SLASQ5 I0-REF14695 N0-REF14696 Z-REF14697 PP-REF14698 TAU-REF14699
                SIGMA-REF14700 DMIN-REF14701 DMIN1-REF14702 DMIN2-REF14703
                DN-REF14704 DNM1-REF14705 DNM2-REF14706 IEEE-REF14707
                EPS-REF14708))))

(CFFI:DEFCFUN ("slasq6_" %%SLASQ6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (I0 :POINTER)
  (N0 :POINTER)
  (Z :POINTER)
  (PP :POINTER)
  (DMIN :POINTER)
  (DMIN1 :POINTER)
  (DMIN2 :POINTER)
  (DN :POINTER)
  (DNM1 :POINTER)
  (DNM2 :POINTER))

(COMMON-LISP:DEFUN %SLASQ6 (I0 N0 Z PP DMIN DMIN1 DMIN2 DN DNM1 DNM2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DNM1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DNM2))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF14709 ':INT32) (N0-REF14710 ':INT32)
                              (PP-REF14712 ':INT32) (DMIN-REF14713 ':FLOAT)
                              (DMIN1-REF14714 ':FLOAT) (DMIN2-REF14715 ':FLOAT)
                              (DN-REF14716 ':FLOAT) (DNM1-REF14717 ':FLOAT)
                              (DNM2-REF14718 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF14709 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF14710 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF14712 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF14713 :FLOAT) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF14714 :FLOAT) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF14715 :FLOAT) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF14716 :FLOAT) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF14717 :FLOAT) DNM1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF14718 :FLOAT) DNM2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14711 Z))
      (%%SLASQ6 I0-REF14709 N0-REF14710 Z-REF14711 PP-REF14712 DMIN-REF14713
                DMIN1-REF14714 DMIN2-REF14715 DN-REF14716 DNM1-REF14717
                DNM2-REF14718))))

(CFFI:DEFCFUN ("slasr_" %%SLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (PIVOT :STRING)
  (DIRECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (C :POINTER)
  (S :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %SLASR (SIDE PIVOT DIRECT M N C S A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING PIVOT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14722 ':INT32) (N-REF14723 ':INT32)
                              (LDA-REF14727 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14722 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14723 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14727 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF14724 C) (S-REF14725 S)
                                            (A-REF14726 A))
      (%%SLASR SIDE PIVOT DIRECT M-REF14722 N-REF14723 C-REF14724 S-REF14725
               A-REF14726 LDA-REF14727))))

(CFFI:DEFCFUN ("slasrt_" %%SLASRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ID :STRING)
  (N :POINTER)
  (D :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASRT (ID N D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING ID)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14729 ':INT32) (INFO-REF14731 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14729 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14731 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14730 D))
      (%%SLASRT ID N-REF14729 D-REF14730 INFO-REF14731))))

(CFFI:DEFCFUN ("slassq_" %%SLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (SCALE :POINTER)
  (SUMSQ :POINTER))

(COMMON-LISP:DEFUN %SLASSQ (N X INCX SCALE SUMSQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASSQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SUMSQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14732 ':INT32) (INCX-REF14734 ':INT32)
                              (SCALE-REF14735 ':FLOAT) (SUMSQ-REF14736 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14732 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14734 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14735 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF14736 :FLOAT) SUMSQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14733 X))
      (%%SLASSQ N-REF14732 X-REF14733 INCX-REF14734 SCALE-REF14735
                SUMSQ-REF14736))))

(CFFI:DEFCFUN ("slasv2_" %%SLASV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (H :POINTER)
  (SSMIN :POINTER)
  (SSMAX :POINTER)
  (SNR :POINTER)
  (CSR :POINTER)
  (SNL :POINTER)
  (CSL :POINTER))

(COMMON-LISP:DEFUN %SLASV2 (F G H SSMIN SSMAX SNR CSR SNL CSL)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASV2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT F)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT H)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSL))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF14737 ':FLOAT) (G-REF14738 ':FLOAT)
                              (H-REF14739 ':FLOAT) (SSMIN-REF14740 ':FLOAT)
                              (SSMAX-REF14741 ':FLOAT) (SNR-REF14742 ':FLOAT)
                              (CSR-REF14743 ':FLOAT) (SNL-REF14744 ':FLOAT)
                              (CSL-REF14745 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF14737 :FLOAT) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14738 :FLOAT) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF H-REF14739 :FLOAT) H)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF14740 :FLOAT) SSMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF14741 :FLOAT) SSMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF14742 :FLOAT) SNR)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF14743 :FLOAT) CSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF14744 :FLOAT) SNL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF14745 :FLOAT) CSL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLASV2 F-REF14737 G-REF14738 H-REF14739 SSMIN-REF14740 SSMAX-REF14741
                SNR-REF14742 CSR-REF14743 SNL-REF14744 CSL-REF14745))))

(CFFI:DEFCFUN ("slaswlq_" %%SLASWLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASWLQ (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASWLQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14746 ':INT32) (N-REF14747 ':INT32)
                              (MB-REF14748 ':INT32) (NB-REF14749 ':INT32)
                              (LDA-REF14751 ':INT32) (LDT-REF14753 ':INT32)
                              (LWORK-REF14755 ':INT32) (INFO-REF14756 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14746 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14747 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF14748 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14749 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14751 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14753 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14755 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14756 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14750 A) (T-REF14752 T)
                                            (WORK-REF14754 WORK))
      (%%SLASWLQ M-REF14746 N-REF14747 MB-REF14748 NB-REF14749 A-REF14750
                 LDA-REF14751 T-REF14752 LDT-REF14753 WORK-REF14754
                 LWORK-REF14755 INFO-REF14756))))

(CFFI:DEFCFUN ("slaswp_" %%SLASWP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (K1 :POINTER)
  (K2 :POINTER)
  (IPIV :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %SLASWP (N A LDA K1 K2 IPIV INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASWP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14757 ':INT32) (LDA-REF14759 ':INT32)
                              (K1-REF14760 ':INT32) (K2-REF14761 ':INT32)
                              (INCX-REF14763 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14757 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14759 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF14760 :INT32) K1)
    (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF14761 :INT32) K2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14763 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14758 A) (IPIV-REF14762 IPIV))
      (%%SLASWP N-REF14757 A-REF14758 LDA-REF14759 K1-REF14760 K2-REF14761
                IPIV-REF14762 INCX-REF14763))))

(CFFI:DEFCFUN ("slasy2_" %%SLASY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (LTRANL :POINTER)
  (LTRANR :POINTER)
  (ISGN :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (TL :POINTER)
  (LDTL :POINTER)
  (TR :POINTER)
  (LDTR :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SCALE :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (XNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASY2
                   (LTRANL LTRANR ISGN N1 N2 TL LDTL TR LDTR B LDB SCALE X LDX
                    XNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASY2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDTL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT XNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRANL-REF14764 ':INT32)
                              (LTRANR-REF14765 ':INT32) (ISGN-REF14766 ':INT32)
                              (N1-REF14767 ':INT32) (N2-REF14768 ':INT32)
                              (LDTL-REF14770 ':INT32) (LDTR-REF14772 ':INT32)
                              (LDB-REF14774 ':INT32) (SCALE-REF14775 ':FLOAT)
                              (LDX-REF14777 ':INT32) (XNORM-REF14778 ':FLOAT)
                              (INFO-REF14779 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANL-REF14764 :INT32) LTRANL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANR-REF14765 :INT32) LTRANR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF14766 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF14767 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF14768 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDTL-REF14770 :INT32) LDTL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDTR-REF14772 :INT32) LDTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14774 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14775 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14777 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF14778 :FLOAT) XNORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14779 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((TL-REF14769 TL) (TR-REF14771 TR)
                                            (B-REF14773 B) (X-REF14776 X))
      (%%SLASY2 LTRANL-REF14764 LTRANR-REF14765 ISGN-REF14766 N1-REF14767
                N2-REF14768 TL-REF14769 LDTL-REF14770 TR-REF14771 LDTR-REF14772
                B-REF14773 LDB-REF14774 SCALE-REF14775 X-REF14776 LDX-REF14777
                XNORM-REF14778 INFO-REF14779))))

(CFFI:DEFCFUN ("slasyf_" %%SLASYF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASYF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASYF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14781 ':INT32) (NB-REF14782 ':INT32)
                              (KB-REF14783 ':INT32) (LDA-REF14785 ':INT32)
                              (LDW-REF14788 ':INT32) (INFO-REF14789 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14781 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14782 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF14783 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14785 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14788 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14789 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14784 A) (IPIV-REF14786 IPIV)
                                            (W-REF14787 W))
      (%%SLASYF UPLO N-REF14781 NB-REF14782 KB-REF14783 A-REF14784 LDA-REF14785
                IPIV-REF14786 W-REF14787 LDW-REF14788 INFO-REF14789))))

(CFFI:DEFCFUN ("slasyf_aa_" %%SLASYF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (J1 :POINTER)
  (M :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLASYF_AA (UPLO J1 M NB A LDA IPIV H LDH WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASYF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF14791 ':INT32) (M-REF14792 ':INT32)
                              (NB-REF14793 ':INT32) (LDA-REF14795 ':INT32)
                              (LDH-REF14798 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF14791 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14792 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14793 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14795 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14798 :INT32) LDH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14794 A) (IPIV-REF14796 IPIV)
                                            (H-REF14797 H) (WORK-REF14799 WORK))
      (%%SLASYF_AA UPLO J1-REF14791 M-REF14792 NB-REF14793 A-REF14794
                   LDA-REF14795 IPIV-REF14796 H-REF14797 LDH-REF14798
                   WORK-REF14799))))

(CFFI:DEFCFUN ("slasyf_rk_" %%SLASYF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASYF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASYF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14801 ':INT32) (NB-REF14802 ':INT32)
                              (KB-REF14803 ':INT32) (LDA-REF14805 ':INT32)
                              (LDW-REF14809 ':INT32) (INFO-REF14810 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14801 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14802 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF14803 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14805 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14809 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14810 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14804 A) (E-REF14806 E)
                                            (IPIV-REF14807 IPIV) (W-REF14808 W))
      (%%SLASYF_RK UPLO N-REF14801 NB-REF14802 KB-REF14803 A-REF14804
                   LDA-REF14805 E-REF14806 IPIV-REF14807 W-REF14808
                   LDW-REF14809 INFO-REF14810))))

(CFFI:DEFCFUN ("slasyf_rook_" %%SLASYF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASYF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASYF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14812 ':INT32) (NB-REF14813 ':INT32)
                              (KB-REF14814 ':INT32) (LDA-REF14816 ':INT32)
                              (LDW-REF14819 ':INT32) (INFO-REF14820 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14812 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14813 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF14814 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14816 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14819 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14820 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14815 A) (IPIV-REF14817 IPIV)
                                            (W-REF14818 W))
      (%%SLASYF_ROOK UPLO N-REF14812 NB-REF14813 KB-REF14814 A-REF14815
                     LDA-REF14816 IPIV-REF14817 W-REF14818 LDW-REF14819
                     INFO-REF14820))))

(CFFI:DEFCFUN ("slatbs_" %%SLATBS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLATBS
                   (UPLO TRANS DIAG NORMIN N KD AB LDAB X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATBS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14825 ':INT32) (KD-REF14826 ':INT32)
                              (LDAB-REF14828 ':INT32) (SCALE-REF14830 ':FLOAT)
                              (INFO-REF14832 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14825 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF14826 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF14828 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14830 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14832 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF14827 AB) (X-REF14829 X)
                                            (CNORM-REF14831 CNORM))
      (%%SLATBS UPLO TRANS DIAG NORMIN N-REF14825 KD-REF14826 AB-REF14827
                LDAB-REF14828 X-REF14829 SCALE-REF14830 CNORM-REF14831
                INFO-REF14832))))

(CFFI:DEFCFUN ("slatdf_" %%SLATDF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (N :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (RHS :POINTER)
  (RDSUM :POINTER)
  (RDSCAL :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER))

(COMMON-LISP:DEFUN %SLATDF (IJOB N Z LDZ RHS RDSUM RDSCAL IPIV JPIV)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATDF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RHS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSUM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSCAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF14833 ':INT32) (N-REF14834 ':INT32)
                              (LDZ-REF14836 ':INT32) (RDSUM-REF14838 ':FLOAT)
                              (RDSCAL-REF14839 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF14833 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14834 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14836 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF14838 :FLOAT) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF14839 :FLOAT) RDSCAL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14835 Z) (RHS-REF14837 RHS)
                                            (IPIV-REF14840 IPIV)
                                            (JPIV-REF14841 JPIV))
      (%%SLATDF IJOB-REF14833 N-REF14834 Z-REF14835 LDZ-REF14836 RHS-REF14837
                RDSUM-REF14838 RDSCAL-REF14839 IPIV-REF14840 JPIV-REF14841))))

(CFFI:DEFCFUN ("slatps_" %%SLATPS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLATPS (UPLO TRANS DIAG NORMIN N AP X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATPS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14846 ':INT32) (SCALE-REF14849 ':FLOAT)
                              (INFO-REF14851 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14846 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14849 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14851 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14847 AP) (X-REF14848 X)
                                            (CNORM-REF14850 CNORM))
      (%%SLATPS UPLO TRANS DIAG NORMIN N-REF14846 AP-REF14847 X-REF14848
                SCALE-REF14849 CNORM-REF14850 INFO-REF14851))))

(CFFI:DEFCFUN ("slatrd_" %%SLATRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (W :POINTER)
  (LDW :POINTER))

(COMMON-LISP:DEFUN %SLATRD (UPLO N NB A LDA E TAU W LDW)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14853 ':INT32) (NB-REF14854 ':INT32)
                              (LDA-REF14856 ':INT32) (LDW-REF14860 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14853 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14854 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14856 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14860 :INT32) LDW)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14855 A) (E-REF14857 E)
                                            (TAU-REF14858 TAU) (W-REF14859 W))
      (%%SLATRD UPLO N-REF14853 NB-REF14854 A-REF14855 LDA-REF14856 E-REF14857
                TAU-REF14858 W-REF14859 LDW-REF14860))))

(CFFI:DEFCFUN ("slatrs_" %%SLATRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLATRS (UPLO TRANS DIAG NORMIN N A LDA X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14865 ':INT32) (LDA-REF14867 ':INT32)
                              (SCALE-REF14869 ':FLOAT) (INFO-REF14871 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14865 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14867 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14869 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14871 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14866 A) (X-REF14868 X)
                                            (CNORM-REF14870 CNORM))
      (%%SLATRS UPLO TRANS DIAG NORMIN N-REF14865 A-REF14866 LDA-REF14867
                X-REF14868 SCALE-REF14869 CNORM-REF14870 INFO-REF14871))))

(CFFI:DEFCFUN ("slatrz_" %%SLATRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLATRZ (M N L A LDA TAU WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATRZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14872 ':INT32) (N-REF14873 ':INT32)
                              (L-REF14874 ':INT32) (LDA-REF14876 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14872 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14873 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF14874 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14876 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14875 A) (TAU-REF14877 TAU)
                                            (WORK-REF14878 WORK))
      (%%SLATRZ M-REF14872 N-REF14873 L-REF14874 A-REF14875 LDA-REF14876
                TAU-REF14877 WORK-REF14878))))

(CFFI:DEFCFUN ("slatsqr_" %%SLATSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLATSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATSQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14879 ':INT32) (N-REF14880 ':INT32)
                              (MB-REF14881 ':INT32) (NB-REF14882 ':INT32)
                              (LDA-REF14884 ':INT32) (LDT-REF14886 ':INT32)
                              (LWORK-REF14888 ':INT32) (INFO-REF14889 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14879 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14880 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF14881 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14882 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14884 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14886 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14888 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14889 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14883 A) (T-REF14885 T)
                                            (WORK-REF14887 WORK))
      (%%SLATSQR M-REF14879 N-REF14880 MB-REF14881 NB-REF14882 A-REF14883
                 LDA-REF14884 T-REF14885 LDT-REF14886 WORK-REF14887
                 LWORK-REF14888 INFO-REF14889))))

(CFFI:DEFCFUN ("slauu2_" %%SLAUU2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAUU2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAUU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14891 ':INT32) (LDA-REF14893 ':INT32)
                              (INFO-REF14894 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14891 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14893 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14894 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14892 A))
      (%%SLAUU2 UPLO N-REF14891 A-REF14892 LDA-REF14893 INFO-REF14894))))

(CFFI:DEFCFUN ("slauum_" %%SLAUUM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAUUM (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAUUM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14896 ':INT32) (LDA-REF14898 ':INT32)
                              (INFO-REF14899 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14896 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14898 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14899 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14897 A))
      (%%SLAUUM UPLO N-REF14896 A-REF14897 LDA-REF14898 INFO-REF14899))))

(CFFI:DEFCFUN ("sopgtr_" %%SOPGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (TAU :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SOPGTR (UPLO N AP TAU Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SOPGTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14901 ':INT32) (LDQ-REF14905 ':INT32)
                              (INFO-REF14907 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14901 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF14905 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14907 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14902 AP) (TAU-REF14903 TAU)
                                            (Q-REF14904 Q) (WORK-REF14906 WORK))
      (%%SOPGTR UPLO N-REF14901 AP-REF14902 TAU-REF14903 Q-REF14904
                LDQ-REF14905 WORK-REF14906 INFO-REF14907))))

(CFFI:DEFCFUN ("sopmtr_" %%SOPMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (AP :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SOPMTR (SIDE UPLO TRANS M N AP TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SOPMTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14911 ':INT32) (N-REF14912 ':INT32)
                              (LDC-REF14916 ':INT32) (INFO-REF14918 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14911 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14912 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14916 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14918 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14913 AP) (TAU-REF14914 TAU)
                                            (C-REF14915 C) (WORK-REF14917 WORK))
      (%%SOPMTR SIDE UPLO TRANS M-REF14911 N-REF14912 AP-REF14913 TAU-REF14914
                C-REF14915 LDC-REF14916 WORK-REF14917 INFO-REF14918))))

(CFFI:DEFCFUN ("sorbdb_" %%SORBDB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (SIGNS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X12 :POINTER)
  (LDX12 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (X22 :POINTER)
  (LDX22 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (TAUQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORBDB
                   (TRANS SIGNS M P Q X11 LDX11 X12 LDX12 X21 LDX21 X22 LDX22
                    THETA PHI TAUP1 TAUP2 TAUQ1 TAUQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X12)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14921 ':INT32) (P-REF14922 ':INT32)
                              (Q-REF14923 ':INT32) (LDX11-REF14925 ':INT32)
                              (LDX12-REF14927 ':INT32) (LDX21-REF14929 ':INT32)
                              (LDX22-REF14931 ':INT32) (LWORK-REF14939 ':INT32)
                              (INFO-REF14940 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14921 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14922 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14923 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14925 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF14927 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14929 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF14931 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14939 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14940 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14924 X11)
                                            (X12-REF14926 X12)
                                            (X21-REF14928 X21)
                                            (X22-REF14930 X22)
                                            (THETA-REF14932 THETA)
                                            (PHI-REF14933 PHI)
                                            (TAUP1-REF14934 TAUP1)
                                            (TAUP2-REF14935 TAUP2)
                                            (TAUQ1-REF14936 TAUQ1)
                                            (TAUQ2-REF14937 TAUQ2)
                                            (WORK-REF14938 WORK))
      (%%SORBDB TRANS SIGNS M-REF14921 P-REF14922 Q-REF14923 X11-REF14924
                LDX11-REF14925 X12-REF14926 LDX12-REF14927 X21-REF14928
                LDX21-REF14929 X22-REF14930 LDX22-REF14931 THETA-REF14932
                PHI-REF14933 TAUP1-REF14934 TAUP2-REF14935 TAUQ1-REF14936
                TAUQ2-REF14937 WORK-REF14938 LWORK-REF14939 INFO-REF14940))))

(CFFI:DEFCFUN ("sorbdb1_" %%SORBDB1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORBDB1
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14941 ':INT32) (P-REF14942 ':INT32)
                              (Q-REF14943 ':INT32) (LDX11-REF14945 ':INT32)
                              (LDX21-REF14947 ':INT32) (LWORK-REF14954 ':INT32)
                              (INFO-REF14955 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14941 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14942 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14943 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14945 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14947 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14954 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14955 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14944 X11)
                                            (X21-REF14946 X21)
                                            (THETA-REF14948 THETA)
                                            (PHI-REF14949 PHI)
                                            (TAUP1-REF14950 TAUP1)
                                            (TAUP2-REF14951 TAUP2)
                                            (TAUQ1-REF14952 TAUQ1)
                                            (WORK-REF14953 WORK))
      (%%SORBDB1 M-REF14941 P-REF14942 Q-REF14943 X11-REF14944 LDX11-REF14945
                 X21-REF14946 LDX21-REF14947 THETA-REF14948 PHI-REF14949
                 TAUP1-REF14950 TAUP2-REF14951 TAUQ1-REF14952 WORK-REF14953
                 LWORK-REF14954 INFO-REF14955))))

(CFFI:DEFCFUN ("sorbdb2_" %%SORBDB2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORBDB2
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14956 ':INT32) (P-REF14957 ':INT32)
                              (Q-REF14958 ':INT32) (LDX11-REF14960 ':INT32)
                              (LDX21-REF14962 ':INT32) (LWORK-REF14969 ':INT32)
                              (INFO-REF14970 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14956 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14957 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14958 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14960 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14962 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14969 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14970 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14959 X11)
                                            (X21-REF14961 X21)
                                            (THETA-REF14963 THETA)
                                            (PHI-REF14964 PHI)
                                            (TAUP1-REF14965 TAUP1)
                                            (TAUP2-REF14966 TAUP2)
                                            (TAUQ1-REF14967 TAUQ1)
                                            (WORK-REF14968 WORK))
      (%%SORBDB2 M-REF14956 P-REF14957 Q-REF14958 X11-REF14959 LDX11-REF14960
                 X21-REF14961 LDX21-REF14962 THETA-REF14963 PHI-REF14964
                 TAUP1-REF14965 TAUP2-REF14966 TAUQ1-REF14967 WORK-REF14968
                 LWORK-REF14969 INFO-REF14970))))

(CFFI:DEFCFUN ("sorbdb3_" %%SORBDB3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORBDB3
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14971 ':INT32) (P-REF14972 ':INT32)
                              (Q-REF14973 ':INT32) (LDX11-REF14975 ':INT32)
                              (LDX21-REF14977 ':INT32) (LWORK-REF14984 ':INT32)
                              (INFO-REF14985 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14971 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14972 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14973 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14975 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14977 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14984 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14985 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14974 X11)
                                            (X21-REF14976 X21)
                                            (THETA-REF14978 THETA)
                                            (PHI-REF14979 PHI)
                                            (TAUP1-REF14980 TAUP1)
                                            (TAUP2-REF14981 TAUP2)
                                            (TAUQ1-REF14982 TAUQ1)
                                            (WORK-REF14983 WORK))
      (%%SORBDB3 M-REF14971 P-REF14972 Q-REF14973 X11-REF14974 LDX11-REF14975
                 X21-REF14976 LDX21-REF14977 THETA-REF14978 PHI-REF14979
                 TAUP1-REF14980 TAUP2-REF14981 TAUQ1-REF14982 WORK-REF14983
                 LWORK-REF14984 INFO-REF14985))))

(CFFI:DEFCFUN ("sorbdb4_" %%SORBDB4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (PHANTOM :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORBDB4
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1
                    PHANTOM WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHANTOM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14986 ':INT32) (P-REF14987 ':INT32)
                              (Q-REF14988 ':INT32) (LDX11-REF14990 ':INT32)
                              (LDX21-REF14992 ':INT32) (LWORK-REF15000 ':INT32)
                              (INFO-REF15001 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14986 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14987 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14988 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14990 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14992 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15000 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15001 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14989 X11)
                                            (X21-REF14991 X21)
                                            (THETA-REF14993 THETA)
                                            (PHI-REF14994 PHI)
                                            (TAUP1-REF14995 TAUP1)
                                            (TAUP2-REF14996 TAUP2)
                                            (TAUQ1-REF14997 TAUQ1)
                                            (PHANTOM-REF14998 PHANTOM)
                                            (WORK-REF14999 WORK))
      (%%SORBDB4 M-REF14986 P-REF14987 Q-REF14988 X11-REF14989 LDX11-REF14990
                 X21-REF14991 LDX21-REF14992 THETA-REF14993 PHI-REF14994
                 TAUP1-REF14995 TAUP2-REF14996 TAUQ1-REF14997 PHANTOM-REF14998
                 WORK-REF14999 LWORK-REF15000 INFO-REF15001))))

(CFFI:DEFCFUN ("sorbdb5_" %%SORBDB5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M1 :POINTER)
  (M2 :POINTER)
  (N :POINTER)
  (X1 :POINTER)
  (INCX1 :POINTER)
  (X2 :POINTER)
  (INCX2 :POINTER)
  (Q1 :POINTER)
  (LDQ1 :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORBDB5
                   (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF15002 ':INT32) (M2-REF15003 ':INT32)
                              (N-REF15004 ':INT32) (INCX1-REF15006 ':INT32)
                              (INCX2-REF15008 ':INT32) (LDQ1-REF15010 ':INT32)
                              (LDQ2-REF15012 ':INT32) (LWORK-REF15014 ':INT32)
                              (INFO-REF15015 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF15002 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF15003 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15004 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF15006 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF15008 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF15010 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF15012 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15014 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15015 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF15005 X1) (X2-REF15007 X2)
                                            (Q1-REF15009 Q1) (Q2-REF15011 Q2)
                                            (WORK-REF15013 WORK))
      (%%SORBDB5 M1-REF15002 M2-REF15003 N-REF15004 X1-REF15005 INCX1-REF15006
                 X2-REF15007 INCX2-REF15008 Q1-REF15009 LDQ1-REF15010
                 Q2-REF15011 LDQ2-REF15012 WORK-REF15013 LWORK-REF15014
                 INFO-REF15015))))

(CFFI:DEFCFUN ("sorbdb6_" %%SORBDB6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M1 :POINTER)
  (M2 :POINTER)
  (N :POINTER)
  (X1 :POINTER)
  (INCX1 :POINTER)
  (X2 :POINTER)
  (INCX2 :POINTER)
  (Q1 :POINTER)
  (LDQ1 :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORBDB6
                   (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF15016 ':INT32) (M2-REF15017 ':INT32)
                              (N-REF15018 ':INT32) (INCX1-REF15020 ':INT32)
                              (INCX2-REF15022 ':INT32) (LDQ1-REF15024 ':INT32)
                              (LDQ2-REF15026 ':INT32) (LWORK-REF15028 ':INT32)
                              (INFO-REF15029 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF15016 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF15017 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15018 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF15020 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF15022 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF15024 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF15026 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15028 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15029 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF15019 X1) (X2-REF15021 X2)
                                            (Q1-REF15023 Q1) (Q2-REF15025 Q2)
                                            (WORK-REF15027 WORK))
      (%%SORBDB6 M1-REF15016 M2-REF15017 N-REF15018 X1-REF15019 INCX1-REF15020
                 X2-REF15021 INCX2-REF15022 Q1-REF15023 LDQ1-REF15024
                 Q2-REF15025 LDQ2-REF15026 WORK-REF15027 LWORK-REF15028
                 INFO-REF15029))))

(CFFI:DEFCFUN ("sorcsd_" %%SORCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (JOBV2T :STRING)
  (TRANS :STRING)
  (SIGNS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X12 :POINTER)
  (LDX12 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (X22 :POINTER)
  (LDX22 :POINTER)
  (THETA :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (V2T :POINTER)
  (LDV2T :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORCSD
                   (JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M P Q X11 LDX11 X12
                    LDX12 X21 LDX21 X22 LDX22 THETA U1 LDU1 U2 LDU2 V1T LDV1T
                    V2T LDV2T WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORCSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X12)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        V2T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15036 ':INT32) (P-REF15037 ':INT32)
                              (Q-REF15038 ':INT32) (LDX11-REF15040 ':INT32)
                              (LDX12-REF15042 ':INT32) (LDX21-REF15044 ':INT32)
                              (LDX22-REF15046 ':INT32) (LDU1-REF15049 ':INT32)
                              (LDU2-REF15051 ':INT32) (LDV1T-REF15053 ':INT32)
                              (LDV2T-REF15055 ':INT32) (LWORK-REF15057 ':INT32)
                              (INFO-REF15059 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15036 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF15037 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF15038 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF15040 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF15042 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF15044 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF15046 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF15049 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF15051 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF15053 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF15055 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15057 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15059 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF15039 X11)
                                            (X12-REF15041 X12)
                                            (X21-REF15043 X21)
                                            (X22-REF15045 X22)
                                            (THETA-REF15047 THETA)
                                            (U1-REF15048 U1) (U2-REF15050 U2)
                                            (V1T-REF15052 V1T)
                                            (V2T-REF15054 V2T)
                                            (WORK-REF15056 WORK)
                                            (IWORK-REF15058 IWORK))
      (%%SORCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF15036 P-REF15037
                Q-REF15038 X11-REF15039 LDX11-REF15040 X12-REF15041
                LDX12-REF15042 X21-REF15043 LDX21-REF15044 X22-REF15045
                LDX22-REF15046 THETA-REF15047 U1-REF15048 LDU1-REF15049
                U2-REF15050 LDU2-REF15051 V1T-REF15052 LDV1T-REF15053
                V2T-REF15054 LDV2T-REF15055 WORK-REF15056 LWORK-REF15057
                IWORK-REF15058 INFO-REF15059))))

(CFFI:DEFCFUN ("sorcsd2by1_" %%SORCSD2BY1 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORCSD2BY1
                   (JOBU1 JOBU2 JOBV1T M P Q X11 LDX11 X21 LDX21 THETA U1 LDU1
                    U2 LDU2 V1T LDV1T WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORCSD2BY1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15063 ':INT32) (P-REF15064 ':INT32)
                              (Q-REF15065 ':INT32) (LDX11-REF15067 ':INT32)
                              (LDX21-REF15069 ':INT32) (LDU1-REF15072 ':INT32)
                              (LDU2-REF15074 ':INT32) (LDV1T-REF15076 ':INT32)
                              (LWORK-REF15078 ':INT32) (INFO-REF15080 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15063 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF15064 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF15065 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF15067 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF15069 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF15072 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF15074 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF15076 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15078 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15080 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF15066 X11)
                                            (X21-REF15068 X21)
                                            (THETA-REF15070 THETA)
                                            (U1-REF15071 U1) (U2-REF15073 U2)
                                            (V1T-REF15075 V1T)
                                            (WORK-REF15077 WORK)
                                            (IWORK-REF15079 IWORK))
      (%%SORCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF15063 P-REF15064 Q-REF15065
                    X11-REF15066 LDX11-REF15067 X21-REF15068 LDX21-REF15069
                    THETA-REF15070 U1-REF15071 LDU1-REF15072 U2-REF15073
                    LDU2-REF15074 V1T-REF15075 LDV1T-REF15076 WORK-REF15077
                    LWORK-REF15078 IWORK-REF15079 INFO-REF15080))))

(CFFI:DEFCFUN ("sorg2l_" %%SORG2L :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORG2L (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORG2L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15081 ':INT32) (N-REF15082 ':INT32)
                              (K-REF15083 ':INT32) (LDA-REF15085 ':INT32)
                              (INFO-REF15088 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15081 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15082 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15083 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15085 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15088 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15084 A) (TAU-REF15086 TAU)
                                            (WORK-REF15087 WORK))
      (%%SORG2L M-REF15081 N-REF15082 K-REF15083 A-REF15084 LDA-REF15085
                TAU-REF15086 WORK-REF15087 INFO-REF15088))))

(CFFI:DEFCFUN ("sorg2r_" %%SORG2R :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORG2R (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORG2R)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15089 ':INT32) (N-REF15090 ':INT32)
                              (K-REF15091 ':INT32) (LDA-REF15093 ':INT32)
                              (INFO-REF15096 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15089 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15090 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15091 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15093 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15096 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15092 A) (TAU-REF15094 TAU)
                                            (WORK-REF15095 WORK))
      (%%SORG2R M-REF15089 N-REF15090 K-REF15091 A-REF15092 LDA-REF15093
                TAU-REF15094 WORK-REF15095 INFO-REF15096))))

(CFFI:DEFCFUN ("sorgbr_" %%SORGBR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGBR (VECT M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15098 ':INT32) (N-REF15099 ':INT32)
                              (K-REF15100 ':INT32) (LDA-REF15102 ':INT32)
                              (LWORK-REF15105 ':INT32) (INFO-REF15106 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15098 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15099 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15100 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15102 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15105 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15106 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15101 A) (TAU-REF15103 TAU)
                                            (WORK-REF15104 WORK))
      (%%SORGBR VECT M-REF15098 N-REF15099 K-REF15100 A-REF15101 LDA-REF15102
                TAU-REF15103 WORK-REF15104 LWORK-REF15105 INFO-REF15106))))

(CFFI:DEFCFUN ("sorghr_" %%SORGHR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGHR (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGHR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15107 ':INT32) (ILO-REF15108 ':INT32)
                              (IHI-REF15109 ':INT32) (LDA-REF15111 ':INT32)
                              (LWORK-REF15114 ':INT32) (INFO-REF15115 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15107 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF15108 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF15109 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15111 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15114 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15115 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15110 A) (TAU-REF15112 TAU)
                                            (WORK-REF15113 WORK))
      (%%SORGHR N-REF15107 ILO-REF15108 IHI-REF15109 A-REF15110 LDA-REF15111
                TAU-REF15112 WORK-REF15113 LWORK-REF15114 INFO-REF15115))))

(CFFI:DEFCFUN ("sorgl2_" %%SORGL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGL2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15116 ':INT32) (N-REF15117 ':INT32)
                              (K-REF15118 ':INT32) (LDA-REF15120 ':INT32)
                              (INFO-REF15123 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15116 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15117 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15118 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15120 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15123 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15119 A) (TAU-REF15121 TAU)
                                            (WORK-REF15122 WORK))
      (%%SORGL2 M-REF15116 N-REF15117 K-REF15118 A-REF15119 LDA-REF15120
                TAU-REF15121 WORK-REF15122 INFO-REF15123))))

(CFFI:DEFCFUN ("sorglq_" %%SORGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGLQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGLQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15124 ':INT32) (N-REF15125 ':INT32)
                              (K-REF15126 ':INT32) (LDA-REF15128 ':INT32)
                              (LWORK-REF15131 ':INT32) (INFO-REF15132 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15124 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15125 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15126 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15128 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15131 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15132 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15127 A) (TAU-REF15129 TAU)
                                            (WORK-REF15130 WORK))
      (%%SORGLQ M-REF15124 N-REF15125 K-REF15126 A-REF15127 LDA-REF15128
                TAU-REF15129 WORK-REF15130 LWORK-REF15131 INFO-REF15132))))

(CFFI:DEFCFUN ("sorgql_" %%SORGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGQL (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGQL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15133 ':INT32) (N-REF15134 ':INT32)
                              (K-REF15135 ':INT32) (LDA-REF15137 ':INT32)
                              (LWORK-REF15140 ':INT32) (INFO-REF15141 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15133 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15134 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15135 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15137 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15140 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15141 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15136 A) (TAU-REF15138 TAU)
                                            (WORK-REF15139 WORK))
      (%%SORGQL M-REF15133 N-REF15134 K-REF15135 A-REF15136 LDA-REF15137
                TAU-REF15138 WORK-REF15139 LWORK-REF15140 INFO-REF15141))))

(CFFI:DEFCFUN ("sorgqr_" %%SORGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGQR (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15142 ':INT32) (N-REF15143 ':INT32)
                              (K-REF15144 ':INT32) (LDA-REF15146 ':INT32)
                              (LWORK-REF15149 ':INT32) (INFO-REF15150 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15142 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15143 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15144 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15146 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15149 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15150 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15145 A) (TAU-REF15147 TAU)
                                            (WORK-REF15148 WORK))
      (%%SORGQR M-REF15142 N-REF15143 K-REF15144 A-REF15145 LDA-REF15146
                TAU-REF15147 WORK-REF15148 LWORK-REF15149 INFO-REF15150))))

(CFFI:DEFCFUN ("sorgr2_" %%SORGR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGR2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15151 ':INT32) (N-REF15152 ':INT32)
                              (K-REF15153 ':INT32) (LDA-REF15155 ':INT32)
                              (INFO-REF15158 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15151 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15152 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15153 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15155 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15158 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15154 A) (TAU-REF15156 TAU)
                                            (WORK-REF15157 WORK))
      (%%SORGR2 M-REF15151 N-REF15152 K-REF15153 A-REF15154 LDA-REF15155
                TAU-REF15156 WORK-REF15157 INFO-REF15158))))

(CFFI:DEFCFUN ("sorgrq_" %%SORGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGRQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGRQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15159 ':INT32) (N-REF15160 ':INT32)
                              (K-REF15161 ':INT32) (LDA-REF15163 ':INT32)
                              (LWORK-REF15166 ':INT32) (INFO-REF15167 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15159 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15160 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15161 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15163 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15166 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15167 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15162 A) (TAU-REF15164 TAU)
                                            (WORK-REF15165 WORK))
      (%%SORGRQ M-REF15159 N-REF15160 K-REF15161 A-REF15162 LDA-REF15163
                TAU-REF15164 WORK-REF15165 LWORK-REF15166 INFO-REF15167))))

(CFFI:DEFCFUN ("sorgtr_" %%SORGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORGTR (UPLO N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15169 ':INT32) (LDA-REF15171 ':INT32)
                              (LWORK-REF15174 ':INT32) (INFO-REF15175 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15169 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15171 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15174 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15175 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15170 A) (TAU-REF15172 TAU)
                                            (WORK-REF15173 WORK))
      (%%SORGTR UPLO N-REF15169 A-REF15170 LDA-REF15171 TAU-REF15172
                WORK-REF15173 LWORK-REF15174 INFO-REF15175))))

(CFFI:DEFCFUN ("sorm22_" %%SORM22 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORM22 (SIDE TRANS M N N1 N2 Q LDQ C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORM22)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15178 ':INT32) (N-REF15179 ':INT32)
                              (N1-REF15180 ':INT32) (N2-REF15181 ':INT32)
                              (LDQ-REF15183 ':INT32) (LDC-REF15185 ':INT32)
                              (LWORK-REF15187 ':INT32) (INFO-REF15188 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15178 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15179 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF15180 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF15181 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15183 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15185 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15187 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15188 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF15182 Q) (C-REF15184 C)
                                            (WORK-REF15186 WORK))
      (%%SORM22 SIDE TRANS M-REF15178 N-REF15179 N1-REF15180 N2-REF15181
                Q-REF15182 LDQ-REF15183 C-REF15184 LDC-REF15185 WORK-REF15186
                LWORK-REF15187 INFO-REF15188))))

(CFFI:DEFCFUN ("sorm2l_" %%SORM2L :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORM2L (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORM2L)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15191 ':INT32) (N-REF15192 ':INT32)
                              (K-REF15193 ':INT32) (LDA-REF15195 ':INT32)
                              (LDC-REF15198 ':INT32) (INFO-REF15200 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15191 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15192 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15193 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15195 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15198 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15200 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15194 A) (TAU-REF15196 TAU)
                                            (C-REF15197 C) (WORK-REF15199 WORK))
      (%%SORM2L SIDE TRANS M-REF15191 N-REF15192 K-REF15193 A-REF15194
                LDA-REF15195 TAU-REF15196 C-REF15197 LDC-REF15198 WORK-REF15199
                INFO-REF15200))))

(CFFI:DEFCFUN ("sorm2r_" %%SORM2R :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORM2R (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORM2R)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15203 ':INT32) (N-REF15204 ':INT32)
                              (K-REF15205 ':INT32) (LDA-REF15207 ':INT32)
                              (LDC-REF15210 ':INT32) (INFO-REF15212 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15203 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15204 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15205 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15207 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15210 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15212 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15206 A) (TAU-REF15208 TAU)
                                            (C-REF15209 C) (WORK-REF15211 WORK))
      (%%SORM2R SIDE TRANS M-REF15203 N-REF15204 K-REF15205 A-REF15206
                LDA-REF15207 TAU-REF15208 C-REF15209 LDC-REF15210 WORK-REF15211
                INFO-REF15212))))

(CFFI:DEFCFUN ("sormbr_" %%SORMBR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMBR
                   (VECT SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15216 ':INT32) (N-REF15217 ':INT32)
                              (K-REF15218 ':INT32) (LDA-REF15220 ':INT32)
                              (LDC-REF15223 ':INT32) (LWORK-REF15225 ':INT32)
                              (INFO-REF15226 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15216 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15217 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15218 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15220 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15223 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15225 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15226 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15219 A) (TAU-REF15221 TAU)
                                            (C-REF15222 C) (WORK-REF15224 WORK))
      (%%SORMBR VECT SIDE TRANS M-REF15216 N-REF15217 K-REF15218 A-REF15219
                LDA-REF15220 TAU-REF15221 C-REF15222 LDC-REF15223 WORK-REF15224
                LWORK-REF15225 INFO-REF15226))))

(CFFI:DEFCFUN ("sormhr_" %%SORMHR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMHR
                   (SIDE TRANS M N ILO IHI A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMHR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15229 ':INT32) (N-REF15230 ':INT32)
                              (ILO-REF15231 ':INT32) (IHI-REF15232 ':INT32)
                              (LDA-REF15234 ':INT32) (LDC-REF15237 ':INT32)
                              (LWORK-REF15239 ':INT32) (INFO-REF15240 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15229 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15230 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF15231 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF15232 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15234 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15237 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15239 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15240 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15233 A) (TAU-REF15235 TAU)
                                            (C-REF15236 C) (WORK-REF15238 WORK))
      (%%SORMHR SIDE TRANS M-REF15229 N-REF15230 ILO-REF15231 IHI-REF15232
                A-REF15233 LDA-REF15234 TAU-REF15235 C-REF15236 LDC-REF15237
                WORK-REF15238 LWORK-REF15239 INFO-REF15240))))

(CFFI:DEFCFUN ("sorml2_" %%SORML2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORML2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORML2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15243 ':INT32) (N-REF15244 ':INT32)
                              (K-REF15245 ':INT32) (LDA-REF15247 ':INT32)
                              (LDC-REF15250 ':INT32) (INFO-REF15252 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15243 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15244 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15245 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15247 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15250 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15252 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15246 A) (TAU-REF15248 TAU)
                                            (C-REF15249 C) (WORK-REF15251 WORK))
      (%%SORML2 SIDE TRANS M-REF15243 N-REF15244 K-REF15245 A-REF15246
                LDA-REF15247 TAU-REF15248 C-REF15249 LDC-REF15250 WORK-REF15251
                INFO-REF15252))))

(CFFI:DEFCFUN ("sormlq_" %%SORMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMLQ (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15255 ':INT32) (N-REF15256 ':INT32)
                              (K-REF15257 ':INT32) (LDA-REF15259 ':INT32)
                              (LDC-REF15262 ':INT32) (LWORK-REF15264 ':INT32)
                              (INFO-REF15265 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15255 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15256 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15257 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15259 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15262 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15264 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15265 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15258 A) (TAU-REF15260 TAU)
                                            (C-REF15261 C) (WORK-REF15263 WORK))
      (%%SORMLQ SIDE TRANS M-REF15255 N-REF15256 K-REF15257 A-REF15258
                LDA-REF15259 TAU-REF15260 C-REF15261 LDC-REF15262 WORK-REF15263
                LWORK-REF15264 INFO-REF15265))))

(CFFI:DEFCFUN ("sormql_" %%SORMQL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMQL (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMQL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15268 ':INT32) (N-REF15269 ':INT32)
                              (K-REF15270 ':INT32) (LDA-REF15272 ':INT32)
                              (LDC-REF15275 ':INT32) (LWORK-REF15277 ':INT32)
                              (INFO-REF15278 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15268 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15269 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15270 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15272 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15275 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15277 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15278 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15271 A) (TAU-REF15273 TAU)
                                            (C-REF15274 C) (WORK-REF15276 WORK))
      (%%SORMQL SIDE TRANS M-REF15268 N-REF15269 K-REF15270 A-REF15271
                LDA-REF15272 TAU-REF15273 C-REF15274 LDC-REF15275 WORK-REF15276
                LWORK-REF15277 INFO-REF15278))))

(CFFI:DEFCFUN ("sormqr_" %%SORMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMQR (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15281 ':INT32) (N-REF15282 ':INT32)
                              (K-REF15283 ':INT32) (LDA-REF15285 ':INT32)
                              (LDC-REF15288 ':INT32) (LWORK-REF15290 ':INT32)
                              (INFO-REF15291 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15281 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15282 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15283 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15285 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15288 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15290 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15291 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15284 A) (TAU-REF15286 TAU)
                                            (C-REF15287 C) (WORK-REF15289 WORK))
      (%%SORMQR SIDE TRANS M-REF15281 N-REF15282 K-REF15283 A-REF15284
                LDA-REF15285 TAU-REF15286 C-REF15287 LDC-REF15288 WORK-REF15289
                LWORK-REF15290 INFO-REF15291))))

(CFFI:DEFCFUN ("sormr2_" %%SORMR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMR2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15294 ':INT32) (N-REF15295 ':INT32)
                              (K-REF15296 ':INT32) (LDA-REF15298 ':INT32)
                              (LDC-REF15301 ':INT32) (INFO-REF15303 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15294 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15295 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15296 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15298 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15301 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15303 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15297 A) (TAU-REF15299 TAU)
                                            (C-REF15300 C) (WORK-REF15302 WORK))
      (%%SORMR2 SIDE TRANS M-REF15294 N-REF15295 K-REF15296 A-REF15297
                LDA-REF15298 TAU-REF15299 C-REF15300 LDC-REF15301 WORK-REF15302
                INFO-REF15303))))

(CFFI:DEFCFUN ("sormr3_" %%SORMR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMR3 (SIDE TRANS M N K L A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMR3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15306 ':INT32) (N-REF15307 ':INT32)
                              (K-REF15308 ':INT32) (L-REF15309 ':INT32)
                              (LDA-REF15311 ':INT32) (LDC-REF15314 ':INT32)
                              (INFO-REF15316 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15306 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15307 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15308 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF15309 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15311 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15314 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15316 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15310 A) (TAU-REF15312 TAU)
                                            (C-REF15313 C) (WORK-REF15315 WORK))
      (%%SORMR3 SIDE TRANS M-REF15306 N-REF15307 K-REF15308 L-REF15309
                A-REF15310 LDA-REF15311 TAU-REF15312 C-REF15313 LDC-REF15314
                WORK-REF15315 INFO-REF15316))))

(CFFI:DEFCFUN ("sormrq_" %%SORMRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMRQ (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMRQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15319 ':INT32) (N-REF15320 ':INT32)
                              (K-REF15321 ':INT32) (LDA-REF15323 ':INT32)
                              (LDC-REF15326 ':INT32) (LWORK-REF15328 ':INT32)
                              (INFO-REF15329 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15319 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15320 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15321 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15323 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15326 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15328 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15329 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15322 A) (TAU-REF15324 TAU)
                                            (C-REF15325 C) (WORK-REF15327 WORK))
      (%%SORMRQ SIDE TRANS M-REF15319 N-REF15320 K-REF15321 A-REF15322
                LDA-REF15323 TAU-REF15324 C-REF15325 LDC-REF15326 WORK-REF15327
                LWORK-REF15328 INFO-REF15329))))

(CFFI:DEFCFUN ("sormrz_" %%SORMRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMRZ (SIDE TRANS M N K L A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMRZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15332 ':INT32) (N-REF15333 ':INT32)
                              (K-REF15334 ':INT32) (L-REF15335 ':INT32)
                              (LDA-REF15337 ':INT32) (LDC-REF15340 ':INT32)
                              (LWORK-REF15342 ':INT32) (INFO-REF15343 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15332 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15333 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15334 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF15335 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15337 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15340 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15342 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15343 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15336 A) (TAU-REF15338 TAU)
                                            (C-REF15339 C) (WORK-REF15341 WORK))
      (%%SORMRZ SIDE TRANS M-REF15332 N-REF15333 K-REF15334 L-REF15335
                A-REF15336 LDA-REF15337 TAU-REF15338 C-REF15339 LDC-REF15340
                WORK-REF15341 LWORK-REF15342 INFO-REF15343))))

(CFFI:DEFCFUN ("sormtr_" %%SORMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SORMTR
                   (SIDE UPLO TRANS M N A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15347 ':INT32) (N-REF15348 ':INT32)
                              (LDA-REF15350 ':INT32) (LDC-REF15353 ':INT32)
                              (LWORK-REF15355 ':INT32) (INFO-REF15356 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15347 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15348 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15350 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15353 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15355 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15356 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15349 A) (TAU-REF15351 TAU)
                                            (C-REF15352 C) (WORK-REF15354 WORK))
      (%%SORMTR SIDE UPLO TRANS M-REF15347 N-REF15348 A-REF15349 LDA-REF15350
                TAU-REF15351 C-REF15352 LDC-REF15353 WORK-REF15354
                LWORK-REF15355 INFO-REF15356))))

(CFFI:DEFCFUN ("spbcon_" %%SPBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBCON (UPLO N KD AB LDAB ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15358 ':INT32) (KD-REF15359 ':INT32)
                              (LDAB-REF15361 ':INT32) (ANORM-REF15362 ':FLOAT)
                              (RCOND-REF15363 ':FLOAT) (INFO-REF15366 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15358 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15359 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15361 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15362 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15363 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15366 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15360 AB)
                                            (WORK-REF15364 WORK)
                                            (IWORK-REF15365 IWORK))
      (%%SPBCON UPLO N-REF15358 KD-REF15359 AB-REF15360 LDAB-REF15361
                ANORM-REF15362 RCOND-REF15363 WORK-REF15364 IWORK-REF15365
                INFO-REF15366))))

(CFFI:DEFCFUN ("spbequ_" %%SPBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBEQU (UPLO N KD AB LDAB S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBEQU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15368 ':INT32) (KD-REF15369 ':INT32)
                              (LDAB-REF15371 ':INT32) (SCOND-REF15373 ':FLOAT)
                              (AMAX-REF15374 ':FLOAT) (INFO-REF15375 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15368 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15369 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15371 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15373 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15374 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15375 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15370 AB) (S-REF15372 S))
      (%%SPBEQU UPLO N-REF15368 KD-REF15369 AB-REF15370 LDAB-REF15371
                S-REF15372 SCOND-REF15373 AMAX-REF15374 INFO-REF15375))))

(CFFI:DEFCFUN ("spbrfs_" %%SPBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBRFS
                   (UPLO N KD NRHS AB LDAB AFB LDAFB B LDB X LDX FERR BERR WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15377 ':INT32) (KD-REF15378 ':INT32)
                              (NRHS-REF15379 ':INT32) (LDAB-REF15381 ':INT32)
                              (LDAFB-REF15383 ':INT32) (LDB-REF15385 ':INT32)
                              (LDX-REF15387 ':INT32) (INFO-REF15392 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15377 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15378 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15379 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15381 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF15383 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15385 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15387 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15392 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15380 AB) (AFB-REF15382 AFB)
                                            (B-REF15384 B) (X-REF15386 X)
                                            (FERR-REF15388 FERR)
                                            (BERR-REF15389 BERR)
                                            (WORK-REF15390 WORK)
                                            (IWORK-REF15391 IWORK))
      (%%SPBRFS UPLO N-REF15377 KD-REF15378 NRHS-REF15379 AB-REF15380
                LDAB-REF15381 AFB-REF15382 LDAFB-REF15383 B-REF15384
                LDB-REF15385 X-REF15386 LDX-REF15387 FERR-REF15388
                BERR-REF15389 WORK-REF15390 IWORK-REF15391 INFO-REF15392))))

(CFFI:DEFCFUN ("spbstf_" %%SPBSTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBSTF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBSTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15394 ':INT32) (KD-REF15395 ':INT32)
                              (LDAB-REF15397 ':INT32) (INFO-REF15398 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15394 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15395 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15397 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15398 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15396 AB))
      (%%SPBSTF UPLO N-REF15394 KD-REF15395 AB-REF15396 LDAB-REF15397
                INFO-REF15398))))

(CFFI:DEFCFUN ("spbsv_" %%SPBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBSV (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15400 ':INT32) (KD-REF15401 ':INT32)
                              (NRHS-REF15402 ':INT32) (LDAB-REF15404 ':INT32)
                              (LDB-REF15406 ':INT32) (INFO-REF15407 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15400 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15401 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15402 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15404 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15406 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15407 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15403 AB) (B-REF15405 B))
      (%%SPBSV UPLO N-REF15400 KD-REF15401 NRHS-REF15402 AB-REF15403
               LDAB-REF15404 B-REF15405 LDB-REF15406 INFO-REF15407))))

(CFFI:DEFCFUN ("spbsvx_" %%SPBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBSVX
                   (FACT UPLO N KD NRHS AB LDAB AFB LDAFB EQUED S B LDB X LDX
                    RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15410 ':INT32) (KD-REF15411 ':INT32)
                              (NRHS-REF15412 ':INT32) (LDAB-REF15414 ':INT32)
                              (LDAFB-REF15416 ':INT32) (LDB-REF15420 ':INT32)
                              (LDX-REF15422 ':INT32) (RCOND-REF15423 ':FLOAT)
                              (INFO-REF15428 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15410 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15411 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15412 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15414 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF15416 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15420 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15422 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15423 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15428 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15413 AB) (AFB-REF15415 AFB)
                                            (S-REF15418 S) (B-REF15419 B)
                                            (X-REF15421 X) (FERR-REF15424 FERR)
                                            (BERR-REF15425 BERR)
                                            (WORK-REF15426 WORK)
                                            (IWORK-REF15427 IWORK))
      (%%SPBSVX FACT UPLO N-REF15410 KD-REF15411 NRHS-REF15412 AB-REF15413
                LDAB-REF15414 AFB-REF15415 LDAFB-REF15416 EQUED S-REF15418
                B-REF15419 LDB-REF15420 X-REF15421 LDX-REF15422 RCOND-REF15423
                FERR-REF15424 BERR-REF15425 WORK-REF15426 IWORK-REF15427
                INFO-REF15428))))

(CFFI:DEFCFUN ("spbtf2_" %%SPBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBTF2 (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15430 ':INT32) (KD-REF15431 ':INT32)
                              (LDAB-REF15433 ':INT32) (INFO-REF15434 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15430 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15431 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15433 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15434 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15432 AB))
      (%%SPBTF2 UPLO N-REF15430 KD-REF15431 AB-REF15432 LDAB-REF15433
                INFO-REF15434))))

(CFFI:DEFCFUN ("spbtrf_" %%SPBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBTRF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15436 ':INT32) (KD-REF15437 ':INT32)
                              (LDAB-REF15439 ':INT32) (INFO-REF15440 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15436 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15437 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15439 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15440 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15438 AB))
      (%%SPBTRF UPLO N-REF15436 KD-REF15437 AB-REF15438 LDAB-REF15439
                INFO-REF15440))))

(CFFI:DEFCFUN ("spbtrs_" %%SPBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPBTRS (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15442 ':INT32) (KD-REF15443 ':INT32)
                              (NRHS-REF15444 ':INT32) (LDAB-REF15446 ':INT32)
                              (LDB-REF15448 ':INT32) (INFO-REF15449 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15442 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15443 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15444 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15446 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15448 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15449 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15445 AB) (B-REF15447 B))
      (%%SPBTRS UPLO N-REF15442 KD-REF15443 NRHS-REF15444 AB-REF15445
                LDAB-REF15446 B-REF15447 LDB-REF15448 INFO-REF15449))))

(CFFI:DEFCFUN ("spftrf_" %%SPFTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPFTRF (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPFTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15452 ':INT32) (INFO-REF15454 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15452 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15454 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15453 A))
      (%%SPFTRF TRANSR UPLO N-REF15452 A-REF15453 INFO-REF15454))))

(CFFI:DEFCFUN ("spftri_" %%SPFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPFTRI (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPFTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15457 ':INT32) (INFO-REF15459 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15457 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15459 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15458 A))
      (%%SPFTRI TRANSR UPLO N-REF15457 A-REF15458 INFO-REF15459))))

(CFFI:DEFCFUN ("spftrs_" %%SPFTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPFTRS (TRANSR UPLO N NRHS A B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPFTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15462 ':INT32) (NRHS-REF15463 ':INT32)
                              (LDB-REF15466 ':INT32) (INFO-REF15467 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15462 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15463 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15466 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15467 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15464 A) (B-REF15465 B))
      (%%SPFTRS TRANSR UPLO N-REF15462 NRHS-REF15463 A-REF15464 B-REF15465
                LDB-REF15466 INFO-REF15467))))

(CFFI:DEFCFUN ("spocon_" %%SPOCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOCON (UPLO N A LDA ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15469 ':INT32) (LDA-REF15471 ':INT32)
                              (ANORM-REF15472 ':FLOAT) (RCOND-REF15473 ':FLOAT)
                              (INFO-REF15476 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15469 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15471 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15472 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15473 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15476 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15470 A) (WORK-REF15474 WORK)
                                            (IWORK-REF15475 IWORK))
      (%%SPOCON UPLO N-REF15469 A-REF15470 LDA-REF15471 ANORM-REF15472
                RCOND-REF15473 WORK-REF15474 IWORK-REF15475 INFO-REF15476))))

(CFFI:DEFCFUN ("spoequ_" %%SPOEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOEQU (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15477 ':INT32) (LDA-REF15479 ':INT32)
                              (SCOND-REF15481 ':FLOAT) (AMAX-REF15482 ':FLOAT)
                              (INFO-REF15483 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15477 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15479 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15481 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15482 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15483 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15478 A) (S-REF15480 S))
      (%%SPOEQU N-REF15477 A-REF15478 LDA-REF15479 S-REF15480 SCOND-REF15481
                AMAX-REF15482 INFO-REF15483))))

(CFFI:DEFCFUN ("spoequb_" %%SPOEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOEQUB (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15484 ':INT32) (LDA-REF15486 ':INT32)
                              (SCOND-REF15488 ':FLOAT) (AMAX-REF15489 ':FLOAT)
                              (INFO-REF15490 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15484 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15486 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15488 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15489 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15490 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15485 A) (S-REF15487 S))
      (%%SPOEQUB N-REF15484 A-REF15485 LDA-REF15486 S-REF15487 SCOND-REF15488
                 AMAX-REF15489 INFO-REF15490))))

(CFFI:DEFCFUN ("sporfs_" %%SPORFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPORFS
                   (UPLO N NRHS A LDA AF LDAF B LDB X LDX FERR BERR WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPORFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15492 ':INT32) (NRHS-REF15493 ':INT32)
                              (LDA-REF15495 ':INT32) (LDAF-REF15497 ':INT32)
                              (LDB-REF15499 ':INT32) (LDX-REF15501 ':INT32)
                              (INFO-REF15506 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15492 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15493 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15495 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15497 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15499 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15501 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15506 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15494 A) (AF-REF15496 AF)
                                            (B-REF15498 B) (X-REF15500 X)
                                            (FERR-REF15502 FERR)
                                            (BERR-REF15503 BERR)
                                            (WORK-REF15504 WORK)
                                            (IWORK-REF15505 IWORK))
      (%%SPORFS UPLO N-REF15492 NRHS-REF15493 A-REF15494 LDA-REF15495
                AF-REF15496 LDAF-REF15497 B-REF15498 LDB-REF15499 X-REF15500
                LDX-REF15501 FERR-REF15502 BERR-REF15503 WORK-REF15504
                IWORK-REF15505 INFO-REF15506))))

(CFFI:DEFCFUN ("sporfsx_" %%SPORFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPORFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF S B LDB X LDX RCOND BERR
                    N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPORFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15509 ':INT32) (NRHS-REF15510 ':INT32)
                              (LDA-REF15512 ':INT32) (LDAF-REF15514 ':INT32)
                              (LDB-REF15517 ':INT32) (LDX-REF15519 ':INT32)
                              (RCOND-REF15520 ':FLOAT)
                              (N_ERR_BNDS-REF15522 ':INT32)
                              (NPARAMS-REF15525 ':INT32)
                              (INFO-REF15529 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15509 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15510 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15512 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15514 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15517 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15519 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15520 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF15522 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF15525 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15529 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15511 A) (AF-REF15513 AF)
                                            (S-REF15515 S) (B-REF15516 B)
                                            (X-REF15518 X) (BERR-REF15521 BERR)
                                            (ERR_BNDS_NORM-REF15523
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF15524
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF15526 PARAMS)
                                            (WORK-REF15527 WORK)
                                            (IWORK-REF15528 IWORK))
      (%%SPORFSX UPLO EQUED N-REF15509 NRHS-REF15510 A-REF15511 LDA-REF15512
                 AF-REF15513 LDAF-REF15514 S-REF15515 B-REF15516 LDB-REF15517
                 X-REF15518 LDX-REF15519 RCOND-REF15520 BERR-REF15521
                 N_ERR_BNDS-REF15522 ERR_BNDS_NORM-REF15523
                 ERR_BNDS_COMP-REF15524 NPARAMS-REF15525 PARAMS-REF15526
                 WORK-REF15527 IWORK-REF15528 INFO-REF15529))))

(CFFI:DEFCFUN ("sposv_" %%SPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOSV (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15531 ':INT32) (NRHS-REF15532 ':INT32)
                              (LDA-REF15534 ':INT32) (LDB-REF15536 ':INT32)
                              (INFO-REF15537 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15531 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15532 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15534 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15536 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15537 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15533 A) (B-REF15535 B))
      (%%SPOSV UPLO N-REF15531 NRHS-REF15532 A-REF15533 LDA-REF15534 B-REF15535
               LDB-REF15536 INFO-REF15537))))

(CFFI:DEFCFUN ("sposvx_" %%SPOSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOSVX
                   (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND
                    FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15540 ':INT32) (NRHS-REF15541 ':INT32)
                              (LDA-REF15543 ':INT32) (LDAF-REF15545 ':INT32)
                              (LDB-REF15549 ':INT32) (LDX-REF15551 ':INT32)
                              (RCOND-REF15552 ':FLOAT) (INFO-REF15557 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15540 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15541 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15543 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15545 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15549 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15551 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15552 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15557 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15542 A) (AF-REF15544 AF)
                                            (S-REF15547 S) (B-REF15548 B)
                                            (X-REF15550 X) (FERR-REF15553 FERR)
                                            (BERR-REF15554 BERR)
                                            (WORK-REF15555 WORK)
                                            (IWORK-REF15556 IWORK))
      (%%SPOSVX FACT UPLO N-REF15540 NRHS-REF15541 A-REF15542 LDA-REF15543
                AF-REF15544 LDAF-REF15545 EQUED S-REF15547 B-REF15548
                LDB-REF15549 X-REF15550 LDX-REF15551 RCOND-REF15552
                FERR-REF15553 BERR-REF15554 WORK-REF15555 IWORK-REF15556
                INFO-REF15557))))

(CFFI:DEFCFUN ("sposvxx_" %%SPOSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOSVXX
                   (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND
                    RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS
                    PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15560 ':INT32) (NRHS-REF15561 ':INT32)
                              (LDA-REF15563 ':INT32) (LDAF-REF15565 ':INT32)
                              (LDB-REF15569 ':INT32) (LDX-REF15571 ':INT32)
                              (RCOND-REF15572 ':FLOAT)
                              (RPVGRW-REF15573 ':FLOAT)
                              (N_ERR_BNDS-REF15575 ':INT32)
                              (NPARAMS-REF15578 ':INT32)
                              (INFO-REF15582 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15560 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15561 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15563 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15565 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15569 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15571 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15572 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF15573 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF15575 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF15578 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15582 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15562 A) (AF-REF15564 AF)
                                            (S-REF15567 S) (B-REF15568 B)
                                            (X-REF15570 X) (BERR-REF15574 BERR)
                                            (ERR_BNDS_NORM-REF15576
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF15577
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF15579 PARAMS)
                                            (WORK-REF15580 WORK)
                                            (IWORK-REF15581 IWORK))
      (%%SPOSVXX FACT UPLO N-REF15560 NRHS-REF15561 A-REF15562 LDA-REF15563
                 AF-REF15564 LDAF-REF15565 EQUED S-REF15567 B-REF15568
                 LDB-REF15569 X-REF15570 LDX-REF15571 RCOND-REF15572
                 RPVGRW-REF15573 BERR-REF15574 N_ERR_BNDS-REF15575
                 ERR_BNDS_NORM-REF15576 ERR_BNDS_COMP-REF15577 NPARAMS-REF15578
                 PARAMS-REF15579 WORK-REF15580 IWORK-REF15581 INFO-REF15582))))

(CFFI:DEFCFUN ("spotf2_" %%SPOTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOTF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15584 ':INT32) (LDA-REF15586 ':INT32)
                              (INFO-REF15587 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15584 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15586 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15587 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15585 A))
      (%%SPOTF2 UPLO N-REF15584 A-REF15585 LDA-REF15586 INFO-REF15587))))

(CFFI:DEFCFUN ("spotrf_" %%SPOTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOTRF (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15589 ':INT32) (LDA-REF15591 ':INT32)
                              (INFO-REF15592 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15589 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15591 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15592 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15590 A))
      (%%SPOTRF UPLO N-REF15589 A-REF15590 LDA-REF15591 INFO-REF15592))))

(CFFI:DEFCFUN ("spotrf2_" %%SPOTRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOTRF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOTRF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15594 ':INT32) (LDA-REF15596 ':INT32)
                              (INFO-REF15597 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15594 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15596 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15597 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15595 A))
      (%%SPOTRF2 UPLO N-REF15594 A-REF15595 LDA-REF15596 INFO-REF15597))))

(CFFI:DEFCFUN ("spotri_" %%SPOTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOTRI (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15599 ':INT32) (LDA-REF15601 ':INT32)
                              (INFO-REF15602 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15599 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15601 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15602 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15600 A))
      (%%SPOTRI UPLO N-REF15599 A-REF15600 LDA-REF15601 INFO-REF15602))))

(CFFI:DEFCFUN ("spotrs_" %%SPOTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPOTRS (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15604 ':INT32) (NRHS-REF15605 ':INT32)
                              (LDA-REF15607 ':INT32) (LDB-REF15609 ':INT32)
                              (INFO-REF15610 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15604 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15605 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15607 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15609 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15610 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15606 A) (B-REF15608 B))
      (%%SPOTRS UPLO N-REF15604 NRHS-REF15605 A-REF15606 LDA-REF15607
                B-REF15608 LDB-REF15609 INFO-REF15610))))

(CFFI:DEFCFUN ("sppcon_" %%SPPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPPCON (UPLO N AP ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15612 ':INT32) (ANORM-REF15614 ':FLOAT)
                              (RCOND-REF15615 ':FLOAT) (INFO-REF15618 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15612 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15614 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15615 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15618 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15613 AP)
                                            (WORK-REF15616 WORK)
                                            (IWORK-REF15617 IWORK))
      (%%SPPCON UPLO N-REF15612 AP-REF15613 ANORM-REF15614 RCOND-REF15615
                WORK-REF15616 IWORK-REF15617 INFO-REF15618))))

(CFFI:DEFCFUN ("sppequ_" %%SPPEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPPEQU (UPLO N AP S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPEQU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15620 ':INT32) (SCOND-REF15623 ':FLOAT)
                              (AMAX-REF15624 ':FLOAT) (INFO-REF15625 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15620 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15623 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15624 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15625 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15621 AP) (S-REF15622 S))
      (%%SPPEQU UPLO N-REF15620 AP-REF15621 S-REF15622 SCOND-REF15623
                AMAX-REF15624 INFO-REF15625))))

(CFFI:DEFCFUN ("spprfs_" %%SPPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPPRFS
                   (UPLO N NRHS AP AFP B LDB X LDX FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15627 ':INT32) (NRHS-REF15628 ':INT32)
                              (LDB-REF15632 ':INT32) (LDX-REF15634 ':INT32)
                              (INFO-REF15639 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15627 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15628 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15632 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15634 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15639 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15629 AP) (AFP-REF15630 AFP)
                                            (B-REF15631 B) (X-REF15633 X)
                                            (FERR-REF15635 FERR)
                                            (BERR-REF15636 BERR)
                                            (WORK-REF15637 WORK)
                                            (IWORK-REF15638 IWORK))
      (%%SPPRFS UPLO N-REF15627 NRHS-REF15628 AP-REF15629 AFP-REF15630
                B-REF15631 LDB-REF15632 X-REF15633 LDX-REF15634 FERR-REF15635
                BERR-REF15636 WORK-REF15637 IWORK-REF15638 INFO-REF15639))))

(CFFI:DEFCFUN ("sppsv_" %%SPPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPPSV (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15641 ':INT32) (NRHS-REF15642 ':INT32)
                              (LDB-REF15645 ':INT32) (INFO-REF15646 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15641 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15642 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15645 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15646 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15643 AP) (B-REF15644 B))
      (%%SPPSV UPLO N-REF15641 NRHS-REF15642 AP-REF15643 B-REF15644
               LDB-REF15645 INFO-REF15646))))

(CFFI:DEFCFUN ("sppsvx_" %%SPPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPPSVX
                   (FACT UPLO N NRHS AP AFP EQUED S B LDB X LDX RCOND FERR BERR
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15649 ':INT32) (NRHS-REF15650 ':INT32)
                              (LDB-REF15656 ':INT32) (LDX-REF15658 ':INT32)
                              (RCOND-REF15659 ':FLOAT) (INFO-REF15664 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15649 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15650 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15656 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15658 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15659 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15664 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15651 AP) (AFP-REF15652 AFP)
                                            (S-REF15654 S) (B-REF15655 B)
                                            (X-REF15657 X) (FERR-REF15660 FERR)
                                            (BERR-REF15661 BERR)
                                            (WORK-REF15662 WORK)
                                            (IWORK-REF15663 IWORK))
      (%%SPPSVX FACT UPLO N-REF15649 NRHS-REF15650 AP-REF15651 AFP-REF15652
                EQUED S-REF15654 B-REF15655 LDB-REF15656 X-REF15657
                LDX-REF15658 RCOND-REF15659 FERR-REF15660 BERR-REF15661
                WORK-REF15662 IWORK-REF15663 INFO-REF15664))))

(CFFI:DEFCFUN ("spptrf_" %%SPPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPPTRF (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15666 ':INT32) (INFO-REF15668 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15666 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15668 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15667 AP))
      (%%SPPTRF UPLO N-REF15666 AP-REF15667 INFO-REF15668))))

(CFFI:DEFCFUN ("spptri_" %%SPPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPPTRI (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15670 ':INT32) (INFO-REF15672 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15670 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15672 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15671 AP))
      (%%SPPTRI UPLO N-REF15670 AP-REF15671 INFO-REF15672))))

(CFFI:DEFCFUN ("spptrs_" %%SPPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPPTRS (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15674 ':INT32) (NRHS-REF15675 ':INT32)
                              (LDB-REF15678 ':INT32) (INFO-REF15679 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15674 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15675 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15678 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15679 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15676 AP) (B-REF15677 B))
      (%%SPPTRS UPLO N-REF15674 NRHS-REF15675 AP-REF15676 B-REF15677
                LDB-REF15678 INFO-REF15679))))

(CFFI:DEFCFUN ("spstf2_" %%SPSTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (PIV :POINTER)
  (RANK :POINTER)
  (TOL :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPSTF2 (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPSTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15681 ':INT32) (LDA-REF15683 ':INT32)
                              (RANK-REF15685 ':INT32) (TOL-REF15686 ':FLOAT)
                              (INFO-REF15688 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15681 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15683 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF15685 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF15686 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15688 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15682 A) (PIV-REF15684 PIV)
                                            (WORK-REF15687 WORK))
      (%%SPSTF2 UPLO N-REF15681 A-REF15682 LDA-REF15683 PIV-REF15684
                RANK-REF15685 TOL-REF15686 WORK-REF15687 INFO-REF15688))))

(CFFI:DEFCFUN ("spstrf_" %%SPSTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (PIV :POINTER)
  (RANK :POINTER)
  (TOL :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPSTRF (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPSTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15690 ':INT32) (LDA-REF15692 ':INT32)
                              (RANK-REF15694 ':INT32) (TOL-REF15695 ':FLOAT)
                              (INFO-REF15697 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15690 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15692 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF15694 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF15695 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15697 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15691 A) (PIV-REF15693 PIV)
                                            (WORK-REF15696 WORK))
      (%%SPSTRF UPLO N-REF15690 A-REF15691 LDA-REF15692 PIV-REF15693
                RANK-REF15694 TOL-REF15695 WORK-REF15696 INFO-REF15697))))

(CFFI:DEFCFUN ("sptcon_" %%SPTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPTCON (N D E ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTCON)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15698 ':INT32) (ANORM-REF15701 ':FLOAT)
                              (RCOND-REF15702 ':FLOAT) (INFO-REF15704 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15698 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15701 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15702 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15704 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15699 D) (E-REF15700 E)
                                            (WORK-REF15703 WORK))
      (%%SPTCON N-REF15698 D-REF15699 E-REF15700 ANORM-REF15701 RCOND-REF15702
                WORK-REF15703 INFO-REF15704))))

(CFFI:DEFCFUN ("spteqr_" %%SPTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15706 ':INT32) (LDZ-REF15710 ':INT32)
                              (INFO-REF15712 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15706 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15710 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15712 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15707 D) (E-REF15708 E)
                                            (Z-REF15709 Z) (WORK-REF15711 WORK))
      (%%SPTEQR COMPZ N-REF15706 D-REF15707 E-REF15708 Z-REF15709 LDZ-REF15710
                WORK-REF15711 INFO-REF15712))))

(CFFI:DEFCFUN ("sptrfs_" %%SPTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (DF :POINTER)
  (EF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPTRFS (N NRHS D E DF EF B LDB X LDX FERR BERR WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTRFS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) EF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15713 ':INT32) (NRHS-REF15714 ':INT32)
                              (LDB-REF15720 ':INT32) (LDX-REF15722 ':INT32)
                              (INFO-REF15726 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15713 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15714 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15720 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15722 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15726 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15715 D) (E-REF15716 E)
                                            (DF-REF15717 DF) (EF-REF15718 EF)
                                            (B-REF15719 B) (X-REF15721 X)
                                            (FERR-REF15723 FERR)
                                            (BERR-REF15724 BERR)
                                            (WORK-REF15725 WORK))
      (%%SPTRFS N-REF15713 NRHS-REF15714 D-REF15715 E-REF15716 DF-REF15717
                EF-REF15718 B-REF15719 LDB-REF15720 X-REF15721 LDX-REF15722
                FERR-REF15723 BERR-REF15724 WORK-REF15725 INFO-REF15726))))

(CFFI:DEFCFUN ("sptsv_" %%SPTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPTSV (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15727 ':INT32) (NRHS-REF15728 ':INT32)
                              (LDB-REF15732 ':INT32) (INFO-REF15733 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15727 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15728 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15732 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15733 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15729 D) (E-REF15730 E)
                                            (B-REF15731 B))
      (%%SPTSV N-REF15727 NRHS-REF15728 D-REF15729 E-REF15730 B-REF15731
               LDB-REF15732 INFO-REF15733))))

(CFFI:DEFCFUN ("sptsvx_" %%SPTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (DF :POINTER)
  (EF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPTSVX
                   (FACT N NRHS D E DF EF B LDB X LDX RCOND FERR BERR WORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) EF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15735 ':INT32) (NRHS-REF15736 ':INT32)
                              (LDB-REF15742 ':INT32) (LDX-REF15744 ':INT32)
                              (RCOND-REF15745 ':FLOAT) (INFO-REF15749 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15735 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15736 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15742 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15744 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15745 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15749 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15737 D) (E-REF15738 E)
                                            (DF-REF15739 DF) (EF-REF15740 EF)
                                            (B-REF15741 B) (X-REF15743 X)
                                            (FERR-REF15746 FERR)
                                            (BERR-REF15747 BERR)
                                            (WORK-REF15748 WORK))
      (%%SPTSVX FACT N-REF15735 NRHS-REF15736 D-REF15737 E-REF15738 DF-REF15739
                EF-REF15740 B-REF15741 LDB-REF15742 X-REF15743 LDX-REF15744
                RCOND-REF15745 FERR-REF15746 BERR-REF15747 WORK-REF15748
                INFO-REF15749))))

(CFFI:DEFCFUN ("spttrf_" %%SPTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPTTRF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15750 ':INT32) (INFO-REF15753 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15750 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15753 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15751 D) (E-REF15752 E))
      (%%SPTTRF N-REF15750 D-REF15751 E-REF15752 INFO-REF15753))))

(CFFI:DEFCFUN ("spttrs_" %%SPTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SPTTRS (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTTRS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15754 ':INT32) (NRHS-REF15755 ':INT32)
                              (LDB-REF15759 ':INT32) (INFO-REF15760 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15754 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15755 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15759 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15760 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15756 D) (E-REF15757 E)
                                            (B-REF15758 B))
      (%%SPTTRS N-REF15754 NRHS-REF15755 D-REF15756 E-REF15757 B-REF15758
                LDB-REF15759 INFO-REF15760))))

(CFFI:DEFCFUN ("sptts2_" %%SPTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %SPTTS2 (N NRHS D E B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTTS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15761 ':INT32) (NRHS-REF15762 ':INT32)
                              (LDB-REF15766 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15761 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15762 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15766 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15763 D) (E-REF15764 E)
                                            (B-REF15765 B))
      (%%SPTTS2 N-REF15761 NRHS-REF15762 D-REF15763 E-REF15764 B-REF15765
                LDB-REF15766))))

(CFFI:DEFCFUN ("srscl_" %%SRSCL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (SA :POINTER)
  (SX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %SRSCL (N SA SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SRSCL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15767 ':INT32) (SA-REF15768 ':FLOAT)
                              (INCX-REF15770 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15767 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF15768 :FLOAT) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF15770 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF15769 SX))
      (%%SRSCL N-REF15767 SA-REF15768 SX-REF15769 INCX-REF15770))))

(CFFI:DEFCFUN ("ssb2st_kernels_" %%SSB2ST_KERNELS :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WANTZ :POINTER)
  (TTYPE :POINTER)
  (ST :POINTER)
  (ED :POINTER)
  (SWEEP :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (IB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (V :POINTER)
  (TAU :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SSB2ST_KERNELS
                   (UPLO WANTZ TTYPE ST ED SWEEP N NB IB A LDA V TAU LDVT WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSB2ST_KERNELS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SWEEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF15772 ':INT32) (TTYPE-REF15773 ':INT32)
                              (ST-REF15774 ':INT32) (ED-REF15775 ':INT32)
                              (SWEEP-REF15776 ':INT32) (N-REF15777 ':INT32)
                              (NB-REF15778 ':INT32) (IB-REF15779 ':INT32)
                              (LDA-REF15781 ':INT32) (LDVT-REF15784 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF15772 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF15773 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF15774 :INT32) ST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF15775 :INT32) ED)
    (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF15776 :INT32) SWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15777 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF15778 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF15779 :INT32) IB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15781 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF15784 :INT32) LDVT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15780 A) (V-REF15782 V)
                                            (TAU-REF15783 TAU)
                                            (WORK-REF15785 WORK))
      (%%SSB2ST_KERNELS UPLO WANTZ-REF15772 TTYPE-REF15773 ST-REF15774
                        ED-REF15775 SWEEP-REF15776 N-REF15777 NB-REF15778
                        IB-REF15779 A-REF15780 LDA-REF15781 V-REF15782
                        TAU-REF15783 LDVT-REF15784 WORK-REF15785))))

(CFFI:DEFCFUN ("ssbev_" %%SSBEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBEV (JOBZ UPLO N KD AB LDAB W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15788 ':INT32) (KD-REF15789 ':INT32)
                              (LDAB-REF15791 ':INT32) (LDZ-REF15794 ':INT32)
                              (INFO-REF15796 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15788 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15789 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15791 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15794 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15796 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15790 AB) (W-REF15792 W)
                                            (Z-REF15793 Z) (WORK-REF15795 WORK))
      (%%SSBEV JOBZ UPLO N-REF15788 KD-REF15789 AB-REF15790 LDAB-REF15791
               W-REF15792 Z-REF15793 LDZ-REF15794 WORK-REF15795
               INFO-REF15796))))

(CFFI:DEFCFUN ("ssbev_2stage_" %%SSBEV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBEV_2STAGE
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEV_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15799 ':INT32) (KD-REF15800 ':INT32)
                              (LDAB-REF15802 ':INT32) (LDZ-REF15805 ':INT32)
                              (LWORK-REF15807 ':INT32) (INFO-REF15808 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15799 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15800 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15802 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15805 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15807 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15808 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15801 AB) (W-REF15803 W)
                                            (Z-REF15804 Z) (WORK-REF15806 WORK))
      (%%SSBEV_2STAGE JOBZ UPLO N-REF15799 KD-REF15800 AB-REF15801
                      LDAB-REF15802 W-REF15803 Z-REF15804 LDZ-REF15805
                      WORK-REF15806 LWORK-REF15807 INFO-REF15808))))

(CFFI:DEFCFUN ("ssbevd_" %%SSBEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBEVD
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15811 ':INT32) (KD-REF15812 ':INT32)
                              (LDAB-REF15814 ':INT32) (LDZ-REF15817 ':INT32)
                              (LWORK-REF15819 ':INT32)
                              (LIWORK-REF15821 ':INT32) (INFO-REF15822 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15811 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15812 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15814 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15817 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15819 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF15821 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15822 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15813 AB) (W-REF15815 W)
                                            (Z-REF15816 Z) (WORK-REF15818 WORK)
                                            (IWORK-REF15820 IWORK))
      (%%SSBEVD JOBZ UPLO N-REF15811 KD-REF15812 AB-REF15813 LDAB-REF15814
                W-REF15815 Z-REF15816 LDZ-REF15817 WORK-REF15818 LWORK-REF15819
                IWORK-REF15820 LIWORK-REF15821 INFO-REF15822))))

(CFFI:DEFCFUN ("ssbevd_2stage_" %%SSBEVD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBEVD_2STAGE
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEVD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15825 ':INT32) (KD-REF15826 ':INT32)
                              (LDAB-REF15828 ':INT32) (LDZ-REF15831 ':INT32)
                              (LWORK-REF15833 ':INT32)
                              (LIWORK-REF15835 ':INT32) (INFO-REF15836 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15825 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15826 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15828 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15831 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15833 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF15835 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15836 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15827 AB) (W-REF15829 W)
                                            (Z-REF15830 Z) (WORK-REF15832 WORK)
                                            (IWORK-REF15834 IWORK))
      (%%SSBEVD_2STAGE JOBZ UPLO N-REF15825 KD-REF15826 AB-REF15827
                       LDAB-REF15828 W-REF15829 Z-REF15830 LDZ-REF15831
                       WORK-REF15832 LWORK-REF15833 IWORK-REF15834
                       LIWORK-REF15835 INFO-REF15836))))

(CFFI:DEFCFUN ("ssbevx_" %%SSBEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBEVX
                   (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z
                    LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15840 ':INT32) (KD-REF15841 ':INT32)
                              (LDAB-REF15843 ':INT32) (LDQ-REF15845 ':INT32)
                              (VL-REF15846 ':FLOAT) (VU-REF15847 ':FLOAT)
                              (IL-REF15848 ':INT32) (IU-REF15849 ':INT32)
                              (ABSTOL-REF15850 ':FLOAT) (M-REF15851 ':INT32)
                              (LDZ-REF15854 ':INT32) (INFO-REF15858 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15840 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15841 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15843 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15845 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15846 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15847 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15848 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15849 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15850 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15851 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15854 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15858 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15842 AB) (Q-REF15844 Q)
                                            (W-REF15852 W) (Z-REF15853 Z)
                                            (WORK-REF15855 WORK)
                                            (IWORK-REF15856 IWORK)
                                            (IFAIL-REF15857 IFAIL))
      (%%SSBEVX JOBZ RANGE UPLO N-REF15840 KD-REF15841 AB-REF15842
                LDAB-REF15843 Q-REF15844 LDQ-REF15845 VL-REF15846 VU-REF15847
                IL-REF15848 IU-REF15849 ABSTOL-REF15850 M-REF15851 W-REF15852
                Z-REF15853 LDZ-REF15854 WORK-REF15855 IWORK-REF15856
                IFAIL-REF15857 INFO-REF15858))))

(CFFI:DEFCFUN ("ssbevx_2stage_" %%SSBEVX_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBEVX_2STAGE
                   (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z
                    LDZ WORK LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEVX_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15862 ':INT32) (KD-REF15863 ':INT32)
                              (LDAB-REF15865 ':INT32) (LDQ-REF15867 ':INT32)
                              (VL-REF15868 ':FLOAT) (VU-REF15869 ':FLOAT)
                              (IL-REF15870 ':INT32) (IU-REF15871 ':INT32)
                              (ABSTOL-REF15872 ':FLOAT) (M-REF15873 ':INT32)
                              (LDZ-REF15876 ':INT32) (LWORK-REF15878 ':INT32)
                              (INFO-REF15881 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15862 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15863 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15865 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15867 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15868 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15869 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15870 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15871 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15872 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15873 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15876 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15878 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15881 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15864 AB) (Q-REF15866 Q)
                                            (W-REF15874 W) (Z-REF15875 Z)
                                            (WORK-REF15877 WORK)
                                            (IWORK-REF15879 IWORK)
                                            (IFAIL-REF15880 IFAIL))
      (%%SSBEVX_2STAGE JOBZ RANGE UPLO N-REF15862 KD-REF15863 AB-REF15864
                       LDAB-REF15865 Q-REF15866 LDQ-REF15867 VL-REF15868
                       VU-REF15869 IL-REF15870 IU-REF15871 ABSTOL-REF15872
                       M-REF15873 W-REF15874 Z-REF15875 LDZ-REF15876
                       WORK-REF15877 LWORK-REF15878 IWORK-REF15879
                       IFAIL-REF15880 INFO-REF15881))))

(CFFI:DEFCFUN ("ssbgst_" %%SSBGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBGST (VECT UPLO N KA KB AB LDAB BB LDBB X LDX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBGST)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15884 ':INT32) (KA-REF15885 ':INT32)
                              (KB-REF15886 ':INT32) (LDAB-REF15888 ':INT32)
                              (LDBB-REF15890 ':INT32) (LDX-REF15892 ':INT32)
                              (INFO-REF15894 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15884 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF15885 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15886 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15888 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF15890 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15892 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15894 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15887 AB) (BB-REF15889 BB)
                                            (X-REF15891 X) (WORK-REF15893 WORK))
      (%%SSBGST VECT UPLO N-REF15884 KA-REF15885 KB-REF15886 AB-REF15887
                LDAB-REF15888 BB-REF15889 LDBB-REF15890 X-REF15891 LDX-REF15892
                WORK-REF15893 INFO-REF15894))))

(CFFI:DEFCFUN ("ssbgv_" %%SSBGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBGV (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBGV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15897 ':INT32) (KA-REF15898 ':INT32)
                              (KB-REF15899 ':INT32) (LDAB-REF15901 ':INT32)
                              (LDBB-REF15903 ':INT32) (LDZ-REF15906 ':INT32)
                              (INFO-REF15908 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15897 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF15898 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15899 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15901 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF15903 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15906 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15908 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15900 AB) (BB-REF15902 BB)
                                            (W-REF15904 W) (Z-REF15905 Z)
                                            (WORK-REF15907 WORK))
      (%%SSBGV JOBZ UPLO N-REF15897 KA-REF15898 KB-REF15899 AB-REF15900
               LDAB-REF15901 BB-REF15902 LDBB-REF15903 W-REF15904 Z-REF15905
               LDZ-REF15906 WORK-REF15907 INFO-REF15908))))

(CFFI:DEFCFUN ("ssbgvd_" %%SSBGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBGVD
                   (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK LWORK IWORK
                    LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBGVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15911 ':INT32) (KA-REF15912 ':INT32)
                              (KB-REF15913 ':INT32) (LDAB-REF15915 ':INT32)
                              (LDBB-REF15917 ':INT32) (LDZ-REF15920 ':INT32)
                              (LWORK-REF15922 ':INT32)
                              (LIWORK-REF15924 ':INT32) (INFO-REF15925 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15911 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF15912 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15913 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15915 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF15917 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15920 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15922 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF15924 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15925 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15914 AB) (BB-REF15916 BB)
                                            (W-REF15918 W) (Z-REF15919 Z)
                                            (WORK-REF15921 WORK)
                                            (IWORK-REF15923 IWORK))
      (%%SSBGVD JOBZ UPLO N-REF15911 KA-REF15912 KB-REF15913 AB-REF15914
                LDAB-REF15915 BB-REF15916 LDBB-REF15917 W-REF15918 Z-REF15919
                LDZ-REF15920 WORK-REF15921 LWORK-REF15922 IWORK-REF15923
                LIWORK-REF15924 INFO-REF15925))))

(CFFI:DEFCFUN ("ssbgvx_" %%SSBGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBGVX
                   (JOBZ RANGE UPLO N KA KB AB LDAB BB LDBB Q LDQ VL VU IL IU
                    ABSTOL M W Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBGVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15929 ':INT32) (KA-REF15930 ':INT32)
                              (KB-REF15931 ':INT32) (LDAB-REF15933 ':INT32)
                              (LDBB-REF15935 ':INT32) (LDQ-REF15937 ':INT32)
                              (VL-REF15938 ':FLOAT) (VU-REF15939 ':FLOAT)
                              (IL-REF15940 ':INT32) (IU-REF15941 ':INT32)
                              (ABSTOL-REF15942 ':FLOAT) (M-REF15943 ':INT32)
                              (LDZ-REF15946 ':INT32) (INFO-REF15950 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15929 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF15930 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15931 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15933 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF15935 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15937 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15938 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15939 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15940 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15941 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15942 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15943 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15946 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15950 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15932 AB) (BB-REF15934 BB)
                                            (Q-REF15936 Q) (W-REF15944 W)
                                            (Z-REF15945 Z) (WORK-REF15947 WORK)
                                            (IWORK-REF15948 IWORK)
                                            (IFAIL-REF15949 IFAIL))
      (%%SSBGVX JOBZ RANGE UPLO N-REF15929 KA-REF15930 KB-REF15931 AB-REF15932
                LDAB-REF15933 BB-REF15934 LDBB-REF15935 Q-REF15936 LDQ-REF15937
                VL-REF15938 VU-REF15939 IL-REF15940 IU-REF15941 ABSTOL-REF15942
                M-REF15943 W-REF15944 Z-REF15945 LDZ-REF15946 WORK-REF15947
                IWORK-REF15948 IFAIL-REF15949 INFO-REF15950))))

(CFFI:DEFCFUN ("ssbtrd_" %%SSBTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSBTRD (VECT UPLO N KD AB LDAB D E Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15953 ':INT32) (KD-REF15954 ':INT32)
                              (LDAB-REF15956 ':INT32) (LDQ-REF15960 ':INT32)
                              (INFO-REF15962 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15953 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15954 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15956 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15960 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15962 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15955 AB) (D-REF15957 D)
                                            (E-REF15958 E) (Q-REF15959 Q)
                                            (WORK-REF15961 WORK))
      (%%SSBTRD VECT UPLO N-REF15953 KD-REF15954 AB-REF15955 LDAB-REF15956
                D-REF15957 E-REF15958 Q-REF15959 LDQ-REF15960 WORK-REF15961
                INFO-REF15962))))

(CFFI:DEFCFUN ("ssfrk_" %%SSFRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER))

(COMMON-LISP:DEFUN %SSFRK (TRANSR UPLO TRANS N K ALPHA A LDA BETA C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSFRK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15966 ':INT32) (K-REF15967 ':INT32)
                              (ALPHA-REF15968 ':FLOAT) (LDA-REF15970 ':INT32)
                              (BETA-REF15971 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15966 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15967 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF15968 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15970 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF15971 :FLOAT) BETA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15969 A) (C-REF15972 C))
      (%%SSFRK TRANSR UPLO TRANS N-REF15966 K-REF15967 ALPHA-REF15968
               A-REF15969 LDA-REF15970 BETA-REF15971 C-REF15972))))

(CFFI:DEFCFUN ("sspcon_" %%SSPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPCON (UPLO N AP IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15974 ':INT32) (ANORM-REF15977 ':FLOAT)
                              (RCOND-REF15978 ':FLOAT) (INFO-REF15981 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15974 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15977 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15978 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15981 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15975 AP)
                                            (IPIV-REF15976 IPIV)
                                            (WORK-REF15979 WORK)
                                            (IWORK-REF15980 IWORK))
      (%%SSPCON UPLO N-REF15974 AP-REF15975 IPIV-REF15976 ANORM-REF15977
                RCOND-REF15978 WORK-REF15979 IWORK-REF15980 INFO-REF15981))))

(CFFI:DEFCFUN ("sspev_" %%SSPEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPEV (JOBZ UPLO N AP W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15984 ':INT32) (LDZ-REF15988 ':INT32)
                              (INFO-REF15990 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15984 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15988 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15990 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15985 AP) (W-REF15986 W)
                                            (Z-REF15987 Z) (WORK-REF15989 WORK))
      (%%SSPEV JOBZ UPLO N-REF15984 AP-REF15985 W-REF15986 Z-REF15987
               LDZ-REF15988 WORK-REF15989 INFO-REF15990))))

(CFFI:DEFCFUN ("sspevd_" %%SSPEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPEVD
                   (JOBZ UPLO N AP W Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15993 ':INT32) (LDZ-REF15997 ':INT32)
                              (LWORK-REF15999 ':INT32)
                              (LIWORK-REF16001 ':INT32) (INFO-REF16002 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15993 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15997 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15999 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16001 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16002 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15994 AP) (W-REF15995 W)
                                            (Z-REF15996 Z) (WORK-REF15998 WORK)
                                            (IWORK-REF16000 IWORK))
      (%%SSPEVD JOBZ UPLO N-REF15993 AP-REF15994 W-REF15995 Z-REF15996
                LDZ-REF15997 WORK-REF15998 LWORK-REF15999 IWORK-REF16000
                LIWORK-REF16001 INFO-REF16002))))

(CFFI:DEFCFUN ("sspevx_" %%SSPEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPEVX
                   (JOBZ RANGE UPLO N AP VL VU IL IU ABSTOL M W Z LDZ WORK
                    IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16006 ':INT32) (VL-REF16008 ':FLOAT)
                              (VU-REF16009 ':FLOAT) (IL-REF16010 ':INT32)
                              (IU-REF16011 ':INT32) (ABSTOL-REF16012 ':FLOAT)
                              (M-REF16013 ':INT32) (LDZ-REF16016 ':INT32)
                              (INFO-REF16020 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16006 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16008 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16009 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16010 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16011 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16012 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16013 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16016 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16020 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16007 AP) (W-REF16014 W)
                                            (Z-REF16015 Z) (WORK-REF16017 WORK)
                                            (IWORK-REF16018 IWORK)
                                            (IFAIL-REF16019 IFAIL))
      (%%SSPEVX JOBZ RANGE UPLO N-REF16006 AP-REF16007 VL-REF16008 VU-REF16009
                IL-REF16010 IU-REF16011 ABSTOL-REF16012 M-REF16013 W-REF16014
                Z-REF16015 LDZ-REF16016 WORK-REF16017 IWORK-REF16018
                IFAIL-REF16019 INFO-REF16020))))

(CFFI:DEFCFUN ("sspgst_" %%SSPGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPGST (ITYPE UPLO N AP BP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPGST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16021 ':INT32) (N-REF16023 ':INT32)
                              (INFO-REF16026 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16021 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16023 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16026 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16024 AP) (BP-REF16025 BP))
      (%%SSPGST ITYPE-REF16021 UPLO N-REF16023 AP-REF16024 BP-REF16025
                INFO-REF16026))))

(CFFI:DEFCFUN ("sspgv_" %%SSPGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPGV (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16027 ':INT32) (N-REF16030 ':INT32)
                              (LDZ-REF16035 ':INT32) (INFO-REF16037 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16027 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16030 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16035 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16037 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16031 AP) (BP-REF16032 BP)
                                            (W-REF16033 W) (Z-REF16034 Z)
                                            (WORK-REF16036 WORK))
      (%%SSPGV ITYPE-REF16027 JOBZ UPLO N-REF16030 AP-REF16031 BP-REF16032
               W-REF16033 Z-REF16034 LDZ-REF16035 WORK-REF16036
               INFO-REF16037))))

(CFFI:DEFCFUN ("sspgvd_" %%SSPGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPGVD
                   (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK LWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPGVD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16038 ':INT32) (N-REF16041 ':INT32)
                              (LDZ-REF16046 ':INT32) (LWORK-REF16048 ':INT32)
                              (LIWORK-REF16050 ':INT32) (INFO-REF16051 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16038 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16041 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16046 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16048 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16050 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16051 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16042 AP) (BP-REF16043 BP)
                                            (W-REF16044 W) (Z-REF16045 Z)
                                            (WORK-REF16047 WORK)
                                            (IWORK-REF16049 IWORK))
      (%%SSPGVD ITYPE-REF16038 JOBZ UPLO N-REF16041 AP-REF16042 BP-REF16043
                W-REF16044 Z-REF16045 LDZ-REF16046 WORK-REF16047 LWORK-REF16048
                IWORK-REF16049 LIWORK-REF16050 INFO-REF16051))))

(CFFI:DEFCFUN ("sspgvx_" %%SSPGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPGVX
                   (ITYPE JOBZ RANGE UPLO N AP BP VL VU IL IU ABSTOL M W Z LDZ
                    WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPGVX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16052 ':INT32) (N-REF16056 ':INT32)
                              (VL-REF16059 ':FLOAT) (VU-REF16060 ':FLOAT)
                              (IL-REF16061 ':INT32) (IU-REF16062 ':INT32)
                              (ABSTOL-REF16063 ':FLOAT) (M-REF16064 ':INT32)
                              (LDZ-REF16067 ':INT32) (INFO-REF16071 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16052 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16056 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16059 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16060 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16061 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16062 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16063 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16064 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16067 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16071 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16057 AP) (BP-REF16058 BP)
                                            (W-REF16065 W) (Z-REF16066 Z)
                                            (WORK-REF16068 WORK)
                                            (IWORK-REF16069 IWORK)
                                            (IFAIL-REF16070 IFAIL))
      (%%SSPGVX ITYPE-REF16052 JOBZ RANGE UPLO N-REF16056 AP-REF16057
                BP-REF16058 VL-REF16059 VU-REF16060 IL-REF16061 IU-REF16062
                ABSTOL-REF16063 M-REF16064 W-REF16065 Z-REF16066 LDZ-REF16067
                WORK-REF16068 IWORK-REF16069 IFAIL-REF16070 INFO-REF16071))))

(CFFI:DEFCFUN ("ssprfs_" %%SSPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPRFS
                   (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16073 ':INT32) (NRHS-REF16074 ':INT32)
                              (LDB-REF16079 ':INT32) (LDX-REF16081 ':INT32)
                              (INFO-REF16086 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16073 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16074 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16079 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16081 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16086 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16075 AP) (AFP-REF16076 AFP)
                                            (IPIV-REF16077 IPIV) (B-REF16078 B)
                                            (X-REF16080 X) (FERR-REF16082 FERR)
                                            (BERR-REF16083 BERR)
                                            (WORK-REF16084 WORK)
                                            (IWORK-REF16085 IWORK))
      (%%SSPRFS UPLO N-REF16073 NRHS-REF16074 AP-REF16075 AFP-REF16076
                IPIV-REF16077 B-REF16078 LDB-REF16079 X-REF16080 LDX-REF16081
                FERR-REF16082 BERR-REF16083 WORK-REF16084 IWORK-REF16085
                INFO-REF16086))))

(CFFI:DEFCFUN ("sspsv_" %%SSPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16088 ':INT32) (NRHS-REF16089 ':INT32)
                              (LDB-REF16093 ':INT32) (INFO-REF16094 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16088 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16089 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16093 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16094 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16090 AP)
                                            (IPIV-REF16091 IPIV) (B-REF16092 B))
      (%%SSPSV UPLO N-REF16088 NRHS-REF16089 AP-REF16090 IPIV-REF16091
               B-REF16092 LDB-REF16093 INFO-REF16094))))

(CFFI:DEFCFUN ("sspsvx_" %%SSPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPSVX
                   (FACT UPLO N NRHS AP AFP IPIV B LDB X LDX RCOND FERR BERR
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16097 ':INT32) (NRHS-REF16098 ':INT32)
                              (LDB-REF16103 ':INT32) (LDX-REF16105 ':INT32)
                              (RCOND-REF16106 ':FLOAT) (INFO-REF16111 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16097 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16098 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16103 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16105 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16106 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16111 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16099 AP) (AFP-REF16100 AFP)
                                            (IPIV-REF16101 IPIV) (B-REF16102 B)
                                            (X-REF16104 X) (FERR-REF16107 FERR)
                                            (BERR-REF16108 BERR)
                                            (WORK-REF16109 WORK)
                                            (IWORK-REF16110 IWORK))
      (%%SSPSVX FACT UPLO N-REF16097 NRHS-REF16098 AP-REF16099 AFP-REF16100
                IPIV-REF16101 B-REF16102 LDB-REF16103 X-REF16104 LDX-REF16105
                RCOND-REF16106 FERR-REF16107 BERR-REF16108 WORK-REF16109
                IWORK-REF16110 INFO-REF16111))))

(CFFI:DEFCFUN ("ssptrd_" %%SSPTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPTRD (UPLO N AP D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16113 ':INT32) (INFO-REF16118 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16113 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16118 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16114 AP) (D-REF16115 D)
                                            (E-REF16116 E) (TAU-REF16117 TAU))
      (%%SSPTRD UPLO N-REF16113 AP-REF16114 D-REF16115 E-REF16116 TAU-REF16117
                INFO-REF16118))))

(CFFI:DEFCFUN ("ssptrf_" %%SSPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPTRF (UPLO N AP IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16120 ':INT32) (INFO-REF16123 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16120 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16123 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16121 AP)
                                            (IPIV-REF16122 IPIV))
      (%%SSPTRF UPLO N-REF16120 AP-REF16121 IPIV-REF16122 INFO-REF16123))))

(CFFI:DEFCFUN ("ssptri_" %%SSPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16125 ':INT32) (INFO-REF16129 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16125 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16129 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16126 AP)
                                            (IPIV-REF16127 IPIV)
                                            (WORK-REF16128 WORK))
      (%%SSPTRI UPLO N-REF16125 AP-REF16126 IPIV-REF16127 WORK-REF16128
                INFO-REF16129))))

(CFFI:DEFCFUN ("ssptrs_" %%SSPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16131 ':INT32) (NRHS-REF16132 ':INT32)
                              (LDB-REF16136 ':INT32) (INFO-REF16137 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16131 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16132 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16136 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16137 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16133 AP)
                                            (IPIV-REF16134 IPIV) (B-REF16135 B))
      (%%SSPTRS UPLO N-REF16131 NRHS-REF16132 AP-REF16133 IPIV-REF16134
                B-REF16135 LDB-REF16136 INFO-REF16137))))

(CFFI:DEFCFUN ("sstebz_" %%SSTEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (RANGE :STRING)
  (ORDER :STRING)
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (D :POINTER)
  (E :POINTER)
  (M :POINTER)
  (NSPLIT :POINTER)
  (W :POINTER)
  (IBLOCK :POINTER)
  (ISPLIT :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEBZ
                   (RANGE ORDER N VL VU IL IU ABSTOL D E M NSPLIT W IBLOCK
                    ISPLIT WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING ORDER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16140 ':INT32) (VL-REF16141 ':FLOAT)
                              (VU-REF16142 ':FLOAT) (IL-REF16143 ':INT32)
                              (IU-REF16144 ':INT32) (ABSTOL-REF16145 ':FLOAT)
                              (M-REF16148 ':INT32) (NSPLIT-REF16149 ':INT32)
                              (INFO-REF16155 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16140 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16141 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16142 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16143 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16144 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16145 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16148 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF16149 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16155 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16146 D) (E-REF16147 E)
                                            (W-REF16150 W)
                                            (IBLOCK-REF16151 IBLOCK)
                                            (ISPLIT-REF16152 ISPLIT)
                                            (WORK-REF16153 WORK)
                                            (IWORK-REF16154 IWORK))
      (%%SSTEBZ RANGE ORDER N-REF16140 VL-REF16141 VU-REF16142 IL-REF16143
                IU-REF16144 ABSTOL-REF16145 D-REF16146 E-REF16147 M-REF16148
                NSPLIT-REF16149 W-REF16150 IBLOCK-REF16151 ISPLIT-REF16152
                WORK-REF16153 IWORK-REF16154 INFO-REF16155))))

(CFFI:DEFCFUN ("sstedc_" %%SSTEDC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEDC (COMPZ N D E Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEDC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16157 ':INT32) (LDZ-REF16161 ':INT32)
                              (LWORK-REF16163 ':INT32)
                              (LIWORK-REF16165 ':INT32) (INFO-REF16166 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16157 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16161 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16163 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16165 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16166 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16158 D) (E-REF16159 E)
                                            (Z-REF16160 Z) (WORK-REF16162 WORK)
                                            (IWORK-REF16164 IWORK))
      (%%SSTEDC COMPZ N-REF16157 D-REF16158 E-REF16159 Z-REF16160 LDZ-REF16161
                WORK-REF16162 LWORK-REF16163 IWORK-REF16164 LIWORK-REF16165
                INFO-REF16166))))

(CFFI:DEFCFUN ("sstegr_" %%SSTEGR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEGR
                   (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
                    LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEGR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16169 ':INT32) (VL-REF16172 ':FLOAT)
                              (VU-REF16173 ':FLOAT) (IL-REF16174 ':INT32)
                              (IU-REF16175 ':INT32) (ABSTOL-REF16176 ':FLOAT)
                              (M-REF16177 ':INT32) (LDZ-REF16180 ':INT32)
                              (LWORK-REF16183 ':INT32)
                              (LIWORK-REF16185 ':INT32) (INFO-REF16186 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16169 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16172 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16173 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16174 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16175 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16176 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16177 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16180 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16183 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16185 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16186 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16170 D) (E-REF16171 E)
                                            (W-REF16178 W) (Z-REF16179 Z)
                                            (ISUPPZ-REF16181 ISUPPZ)
                                            (WORK-REF16182 WORK)
                                            (IWORK-REF16184 IWORK))
      (%%SSTEGR JOBZ RANGE N-REF16169 D-REF16170 E-REF16171 VL-REF16172
                VU-REF16173 IL-REF16174 IU-REF16175 ABSTOL-REF16176 M-REF16177
                W-REF16178 Z-REF16179 LDZ-REF16180 ISUPPZ-REF16181
                WORK-REF16182 LWORK-REF16183 IWORK-REF16184 LIWORK-REF16185
                INFO-REF16186))))

(CFFI:DEFCFUN ("sstein_" %%SSTEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (M :POINTER)
  (W :POINTER)
  (IBLOCK :POINTER)
  (ISPLIT :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEIN
                   (N D E M W IBLOCK ISPLIT Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16187 ':INT32) (M-REF16190 ':INT32)
                              (LDZ-REF16195 ':INT32) (INFO-REF16199 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16187 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16190 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16195 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16199 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16188 D) (E-REF16189 E)
                                            (W-REF16191 W)
                                            (IBLOCK-REF16192 IBLOCK)
                                            (ISPLIT-REF16193 ISPLIT)
                                            (Z-REF16194 Z) (WORK-REF16196 WORK)
                                            (IWORK-REF16197 IWORK)
                                            (IFAIL-REF16198 IFAIL))
      (%%SSTEIN N-REF16187 D-REF16188 E-REF16189 M-REF16190 W-REF16191
                IBLOCK-REF16192 ISPLIT-REF16193 Z-REF16194 LDZ-REF16195
                WORK-REF16196 IWORK-REF16197 IFAIL-REF16198 INFO-REF16199))))

(CFFI:DEFCFUN ("sstemr_" %%SSTEMR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NZC :POINTER)
  (ISUPPZ :POINTER)
  (TRYRAC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEMR
                   (JOBZ RANGE N D E VL VU IL IU M W Z LDZ NZC ISUPPZ TRYRAC
                    WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEMR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRYRAC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16202 ':INT32) (VL-REF16205 ':FLOAT)
                              (VU-REF16206 ':FLOAT) (IL-REF16207 ':INT32)
                              (IU-REF16208 ':INT32) (M-REF16209 ':INT32)
                              (LDZ-REF16212 ':INT32) (NZC-REF16213 ':INT32)
                              (TRYRAC-REF16215 ':INT32)
                              (LWORK-REF16217 ':INT32)
                              (LIWORK-REF16219 ':INT32) (INFO-REF16220 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16202 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16205 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16206 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16207 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16208 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16209 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16212 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF16213 :INT32) NZC)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF16215 :INT32) TRYRAC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16217 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16219 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16220 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16203 D) (E-REF16204 E)
                                            (W-REF16210 W) (Z-REF16211 Z)
                                            (ISUPPZ-REF16214 ISUPPZ)
                                            (WORK-REF16216 WORK)
                                            (IWORK-REF16218 IWORK))
      (%%SSTEMR JOBZ RANGE N-REF16202 D-REF16203 E-REF16204 VL-REF16205
                VU-REF16206 IL-REF16207 IU-REF16208 M-REF16209 W-REF16210
                Z-REF16211 LDZ-REF16212 NZC-REF16213 ISUPPZ-REF16214
                TRYRAC-REF16215 WORK-REF16216 LWORK-REF16217 IWORK-REF16218
                LIWORK-REF16219 INFO-REF16220))))

(CFFI:DEFCFUN ("ssteqr_" %%SSTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16222 ':INT32) (LDZ-REF16226 ':INT32)
                              (INFO-REF16228 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16222 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16226 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16228 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16223 D) (E-REF16224 E)
                                            (Z-REF16225 Z) (WORK-REF16227 WORK))
      (%%SSTEQR COMPZ N-REF16222 D-REF16223 E-REF16224 Z-REF16225 LDZ-REF16226
                WORK-REF16227 INFO-REF16228))))

(CFFI:DEFCFUN ("ssterf_" %%SSTERF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTERF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTERF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16229 ':INT32) (INFO-REF16232 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16229 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16232 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16230 D) (E-REF16231 E))
      (%%SSTERF N-REF16229 D-REF16230 E-REF16231 INFO-REF16232))))

(CFFI:DEFCFUN ("sstev_" %%SSTEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEV (JOBZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16234 ':INT32) (LDZ-REF16238 ':INT32)
                              (INFO-REF16240 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16234 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16238 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16240 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16235 D) (E-REF16236 E)
                                            (Z-REF16237 Z) (WORK-REF16239 WORK))
      (%%SSTEV JOBZ N-REF16234 D-REF16235 E-REF16236 Z-REF16237 LDZ-REF16238
               WORK-REF16239 INFO-REF16240))))

(CFFI:DEFCFUN ("sstevd_" %%SSTEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEVD (JOBZ N D E Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16242 ':INT32) (LDZ-REF16246 ':INT32)
                              (LWORK-REF16248 ':INT32)
                              (LIWORK-REF16250 ':INT32) (INFO-REF16251 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16242 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16246 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16248 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16250 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16251 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16243 D) (E-REF16244 E)
                                            (Z-REF16245 Z) (WORK-REF16247 WORK)
                                            (IWORK-REF16249 IWORK))
      (%%SSTEVD JOBZ N-REF16242 D-REF16243 E-REF16244 Z-REF16245 LDZ-REF16246
                WORK-REF16247 LWORK-REF16248 IWORK-REF16249 LIWORK-REF16250
                INFO-REF16251))))

(CFFI:DEFCFUN ("sstevr_" %%SSTEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEVR
                   (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
                    LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16254 ':INT32) (VL-REF16257 ':FLOAT)
                              (VU-REF16258 ':FLOAT) (IL-REF16259 ':INT32)
                              (IU-REF16260 ':INT32) (ABSTOL-REF16261 ':FLOAT)
                              (M-REF16262 ':INT32) (LDZ-REF16265 ':INT32)
                              (LWORK-REF16268 ':INT32)
                              (LIWORK-REF16270 ':INT32) (INFO-REF16271 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16254 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16257 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16258 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16259 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16260 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16261 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16262 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16265 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16268 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16270 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16271 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16255 D) (E-REF16256 E)
                                            (W-REF16263 W) (Z-REF16264 Z)
                                            (ISUPPZ-REF16266 ISUPPZ)
                                            (WORK-REF16267 WORK)
                                            (IWORK-REF16269 IWORK))
      (%%SSTEVR JOBZ RANGE N-REF16254 D-REF16255 E-REF16256 VL-REF16257
                VU-REF16258 IL-REF16259 IU-REF16260 ABSTOL-REF16261 M-REF16262
                W-REF16263 Z-REF16264 LDZ-REF16265 ISUPPZ-REF16266
                WORK-REF16267 LWORK-REF16268 IWORK-REF16269 LIWORK-REF16270
                INFO-REF16271))))

(CFFI:DEFCFUN ("sstevx_" %%SSTEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSTEVX
                   (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ WORK IWORK
                    IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16274 ':INT32) (VL-REF16277 ':FLOAT)
                              (VU-REF16278 ':FLOAT) (IL-REF16279 ':INT32)
                              (IU-REF16280 ':INT32) (ABSTOL-REF16281 ':FLOAT)
                              (M-REF16282 ':INT32) (LDZ-REF16285 ':INT32)
                              (INFO-REF16289 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16274 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16277 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16278 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16279 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16280 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16281 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16282 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16285 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16289 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16275 D) (E-REF16276 E)
                                            (W-REF16283 W) (Z-REF16284 Z)
                                            (WORK-REF16286 WORK)
                                            (IWORK-REF16287 IWORK)
                                            (IFAIL-REF16288 IFAIL))
      (%%SSTEVX JOBZ RANGE N-REF16274 D-REF16275 E-REF16276 VL-REF16277
                VU-REF16278 IL-REF16279 IU-REF16280 ABSTOL-REF16281 M-REF16282
                W-REF16283 Z-REF16284 LDZ-REF16285 WORK-REF16286 IWORK-REF16287
                IFAIL-REF16288 INFO-REF16289))))

(CFFI:DEFCFUN ("ssycon_" %%SSYCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYCON (UPLO N A LDA IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16291 ':INT32) (LDA-REF16293 ':INT32)
                              (ANORM-REF16295 ':FLOAT) (RCOND-REF16296 ':FLOAT)
                              (INFO-REF16299 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16291 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16293 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF16295 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16296 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16299 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16292 A) (IPIV-REF16294 IPIV)
                                            (WORK-REF16297 WORK)
                                            (IWORK-REF16298 IWORK))
      (%%SSYCON UPLO N-REF16291 A-REF16292 LDA-REF16293 IPIV-REF16294
                ANORM-REF16295 RCOND-REF16296 WORK-REF16297 IWORK-REF16298
                INFO-REF16299))))

(CFFI:DEFCFUN ("ssycon_3_" %%SSYCON_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYCON_3 (UPLO N A LDA E IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCON_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16301 ':INT32) (LDA-REF16303 ':INT32)
                              (ANORM-REF16306 ':FLOAT) (RCOND-REF16307 ':FLOAT)
                              (INFO-REF16310 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16301 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16303 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF16306 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16307 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16310 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16302 A) (E-REF16304 E)
                                            (IPIV-REF16305 IPIV)
                                            (WORK-REF16308 WORK)
                                            (IWORK-REF16309 IWORK))
      (%%SSYCON_3 UPLO N-REF16301 A-REF16302 LDA-REF16303 E-REF16304
                  IPIV-REF16305 ANORM-REF16306 RCOND-REF16307 WORK-REF16308
                  IWORK-REF16309 INFO-REF16310))))

(CFFI:DEFCFUN ("ssycon_rook_" %%SSYCON_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYCON_ROOK (UPLO N A LDA IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCON_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16312 ':INT32) (LDA-REF16314 ':INT32)
                              (ANORM-REF16316 ':FLOAT) (RCOND-REF16317 ':FLOAT)
                              (INFO-REF16320 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16312 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16314 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF16316 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16317 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16320 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16313 A) (IPIV-REF16315 IPIV)
                                            (WORK-REF16318 WORK)
                                            (IWORK-REF16319 IWORK))
      (%%SSYCON_ROOK UPLO N-REF16312 A-REF16313 LDA-REF16314 IPIV-REF16315
                     ANORM-REF16316 RCOND-REF16317 WORK-REF16318 IWORK-REF16319
                     INFO-REF16320))))

(CFFI:DEFCFUN ("ssyconv_" %%SSYCONV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYCONV (UPLO WAY N A LDA IPIV E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCONV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16323 ':INT32) (LDA-REF16325 ':INT32)
                              (INFO-REF16328 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16323 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16325 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16328 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16324 A) (IPIV-REF16326 IPIV)
                                            (E-REF16327 E))
      (%%SSYCONV UPLO WAY N-REF16323 A-REF16324 LDA-REF16325 IPIV-REF16326
                 E-REF16327 INFO-REF16328))))

(CFFI:DEFCFUN ("ssyconvf_" %%SSYCONVF :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYCONVF (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCONVF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16331 ':INT32) (LDA-REF16333 ':INT32)
                              (INFO-REF16336 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16331 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16333 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16336 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16332 A) (E-REF16334 E)
                                            (IPIV-REF16335 IPIV))
      (%%SSYCONVF UPLO WAY N-REF16331 A-REF16332 LDA-REF16333 E-REF16334
                  IPIV-REF16335 INFO-REF16336))))

(CFFI:DEFCFUN ("ssyconvf_rook_" %%SSYCONVF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYCONVF_ROOK (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCONVF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16339 ':INT32) (LDA-REF16341 ':INT32)
                              (INFO-REF16344 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16339 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16341 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16344 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16340 A) (E-REF16342 E)
                                            (IPIV-REF16343 IPIV))
      (%%SSYCONVF_ROOK UPLO WAY N-REF16339 A-REF16340 LDA-REF16341 E-REF16342
                       IPIV-REF16343 INFO-REF16344))))

(CFFI:DEFCFUN ("ssyequb_" %%SSYEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEQUB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16346 ':INT32) (LDA-REF16348 ':INT32)
                              (SCOND-REF16350 ':FLOAT) (AMAX-REF16351 ':FLOAT)
                              (INFO-REF16353 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16346 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16348 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF16350 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF16351 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16353 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16347 A) (S-REF16349 S)
                                            (WORK-REF16352 WORK))
      (%%SSYEQUB UPLO N-REF16346 A-REF16347 LDA-REF16348 S-REF16349
                 SCOND-REF16350 AMAX-REF16351 WORK-REF16352 INFO-REF16353))))

(CFFI:DEFCFUN ("ssyev_" %%SSYEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEV (JOBZ UPLO N A LDA W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16356 ':INT32) (LDA-REF16358 ':INT32)
                              (LWORK-REF16361 ':INT32) (INFO-REF16362 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16356 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16358 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16361 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16362 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16357 A) (W-REF16359 W)
                                            (WORK-REF16360 WORK))
      (%%SSYEV JOBZ UPLO N-REF16356 A-REF16357 LDA-REF16358 W-REF16359
               WORK-REF16360 LWORK-REF16361 INFO-REF16362))))

(CFFI:DEFCFUN ("ssyev_2stage_" %%SSYEV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEV_2STAGE (JOBZ UPLO N A LDA W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEV_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16365 ':INT32) (LDA-REF16367 ':INT32)
                              (LWORK-REF16370 ':INT32) (INFO-REF16371 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16365 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16367 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16370 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16371 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16366 A) (W-REF16368 W)
                                            (WORK-REF16369 WORK))
      (%%SSYEV_2STAGE JOBZ UPLO N-REF16365 A-REF16366 LDA-REF16367 W-REF16368
                      WORK-REF16369 LWORK-REF16370 INFO-REF16371))))

(CFFI:DEFCFUN ("ssyevd_" %%SSYEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEVD (JOBZ UPLO N A LDA W WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16374 ':INT32) (LDA-REF16376 ':INT32)
                              (LWORK-REF16379 ':INT32)
                              (LIWORK-REF16381 ':INT32) (INFO-REF16382 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16374 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16376 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16379 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16381 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16382 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16375 A) (W-REF16377 W)
                                            (WORK-REF16378 WORK)
                                            (IWORK-REF16380 IWORK))
      (%%SSYEVD JOBZ UPLO N-REF16374 A-REF16375 LDA-REF16376 W-REF16377
                WORK-REF16378 LWORK-REF16379 IWORK-REF16380 LIWORK-REF16381
                INFO-REF16382))))

(CFFI:DEFCFUN ("ssyevd_2stage_" %%SSYEVD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEVD_2STAGE
                   (JOBZ UPLO N A LDA W WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16385 ':INT32) (LDA-REF16387 ':INT32)
                              (LWORK-REF16390 ':INT32)
                              (LIWORK-REF16392 ':INT32) (INFO-REF16393 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16385 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16387 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16390 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16392 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16393 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16386 A) (W-REF16388 W)
                                            (WORK-REF16389 WORK)
                                            (IWORK-REF16391 IWORK))
      (%%SSYEVD_2STAGE JOBZ UPLO N-REF16385 A-REF16386 LDA-REF16387 W-REF16388
                       WORK-REF16389 LWORK-REF16390 IWORK-REF16391
                       LIWORK-REF16392 INFO-REF16393))))

(CFFI:DEFCFUN ("ssyevr_" %%SSYEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEVR
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ
                    WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16397 ':INT32) (LDA-REF16399 ':INT32)
                              (VL-REF16400 ':FLOAT) (VU-REF16401 ':FLOAT)
                              (IL-REF16402 ':INT32) (IU-REF16403 ':INT32)
                              (ABSTOL-REF16404 ':FLOAT) (M-REF16405 ':INT32)
                              (LDZ-REF16408 ':INT32) (LWORK-REF16411 ':INT32)
                              (LIWORK-REF16413 ':INT32) (INFO-REF16414 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16397 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16399 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16400 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16401 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16402 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16403 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16404 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16405 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16408 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16411 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16413 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16414 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16398 A) (W-REF16406 W)
                                            (Z-REF16407 Z)
                                            (ISUPPZ-REF16409 ISUPPZ)
                                            (WORK-REF16410 WORK)
                                            (IWORK-REF16412 IWORK))
      (%%SSYEVR JOBZ RANGE UPLO N-REF16397 A-REF16398 LDA-REF16399 VL-REF16400
                VU-REF16401 IL-REF16402 IU-REF16403 ABSTOL-REF16404 M-REF16405
                W-REF16406 Z-REF16407 LDZ-REF16408 ISUPPZ-REF16409
                WORK-REF16410 LWORK-REF16411 IWORK-REF16412 LIWORK-REF16413
                INFO-REF16414))))

(CFFI:DEFCFUN ("ssyevr_2stage_" %%SSYEVR_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEVR_2STAGE
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ
                    WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVR_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16418 ':INT32) (LDA-REF16420 ':INT32)
                              (VL-REF16421 ':FLOAT) (VU-REF16422 ':FLOAT)
                              (IL-REF16423 ':INT32) (IU-REF16424 ':INT32)
                              (ABSTOL-REF16425 ':FLOAT) (M-REF16426 ':INT32)
                              (LDZ-REF16429 ':INT32) (LWORK-REF16432 ':INT32)
                              (LIWORK-REF16434 ':INT32) (INFO-REF16435 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16418 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16420 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16421 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16422 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16423 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16424 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16425 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16426 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16429 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16432 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16434 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16435 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16419 A) (W-REF16427 W)
                                            (Z-REF16428 Z)
                                            (ISUPPZ-REF16430 ISUPPZ)
                                            (WORK-REF16431 WORK)
                                            (IWORK-REF16433 IWORK))
      (%%SSYEVR_2STAGE JOBZ RANGE UPLO N-REF16418 A-REF16419 LDA-REF16420
                       VL-REF16421 VU-REF16422 IL-REF16423 IU-REF16424
                       ABSTOL-REF16425 M-REF16426 W-REF16427 Z-REF16428
                       LDZ-REF16429 ISUPPZ-REF16430 WORK-REF16431
                       LWORK-REF16432 IWORK-REF16433 LIWORK-REF16434
                       INFO-REF16435))))

(CFFI:DEFCFUN ("ssyevx_" %%SSYEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEVX
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK
                    LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16439 ':INT32) (LDA-REF16441 ':INT32)
                              (VL-REF16442 ':FLOAT) (VU-REF16443 ':FLOAT)
                              (IL-REF16444 ':INT32) (IU-REF16445 ':INT32)
                              (ABSTOL-REF16446 ':FLOAT) (M-REF16447 ':INT32)
                              (LDZ-REF16450 ':INT32) (LWORK-REF16452 ':INT32)
                              (INFO-REF16455 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16439 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16441 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16442 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16443 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16444 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16445 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16446 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16447 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16450 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16452 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16455 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16440 A) (W-REF16448 W)
                                            (Z-REF16449 Z) (WORK-REF16451 WORK)
                                            (IWORK-REF16453 IWORK)
                                            (IFAIL-REF16454 IFAIL))
      (%%SSYEVX JOBZ RANGE UPLO N-REF16439 A-REF16440 LDA-REF16441 VL-REF16442
                VU-REF16443 IL-REF16444 IU-REF16445 ABSTOL-REF16446 M-REF16447
                W-REF16448 Z-REF16449 LDZ-REF16450 WORK-REF16451 LWORK-REF16452
                IWORK-REF16453 IFAIL-REF16454 INFO-REF16455))))

(CFFI:DEFCFUN ("ssyevx_2stage_" %%SSYEVX_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYEVX_2STAGE
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK
                    LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVX_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16459 ':INT32) (LDA-REF16461 ':INT32)
                              (VL-REF16462 ':FLOAT) (VU-REF16463 ':FLOAT)
                              (IL-REF16464 ':INT32) (IU-REF16465 ':INT32)
                              (ABSTOL-REF16466 ':FLOAT) (M-REF16467 ':INT32)
                              (LDZ-REF16470 ':INT32) (LWORK-REF16472 ':INT32)
                              (INFO-REF16475 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16459 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16461 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16462 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16463 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16464 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16465 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16466 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16467 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16470 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16472 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16475 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16460 A) (W-REF16468 W)
                                            (Z-REF16469 Z) (WORK-REF16471 WORK)
                                            (IWORK-REF16473 IWORK)
                                            (IFAIL-REF16474 IFAIL))
      (%%SSYEVX_2STAGE JOBZ RANGE UPLO N-REF16459 A-REF16460 LDA-REF16461
                       VL-REF16462 VU-REF16463 IL-REF16464 IU-REF16465
                       ABSTOL-REF16466 M-REF16467 W-REF16468 Z-REF16469
                       LDZ-REF16470 WORK-REF16471 LWORK-REF16472 IWORK-REF16473
                       IFAIL-REF16474 INFO-REF16475))))

(CFFI:DEFCFUN ("ssygs2_" %%SSYGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYGS2 (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16476 ':INT32) (N-REF16478 ':INT32)
                              (LDA-REF16480 ':INT32) (LDB-REF16482 ':INT32)
                              (INFO-REF16483 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16476 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16478 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16480 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16482 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16483 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16479 A) (B-REF16481 B))
      (%%SSYGS2 ITYPE-REF16476 UPLO N-REF16478 A-REF16479 LDA-REF16480
                B-REF16481 LDB-REF16482 INFO-REF16483))))

(CFFI:DEFCFUN ("ssygst_" %%SSYGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYGST (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16484 ':INT32) (N-REF16486 ':INT32)
                              (LDA-REF16488 ':INT32) (LDB-REF16490 ':INT32)
                              (INFO-REF16491 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16484 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16486 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16488 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16490 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16491 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16487 A) (B-REF16489 B))
      (%%SSYGST ITYPE-REF16484 UPLO N-REF16486 A-REF16487 LDA-REF16488
                B-REF16489 LDB-REF16490 INFO-REF16491))))

(CFFI:DEFCFUN ("ssygv_" %%SSYGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYGV (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16492 ':INT32) (N-REF16495 ':INT32)
                              (LDA-REF16497 ':INT32) (LDB-REF16499 ':INT32)
                              (LWORK-REF16502 ':INT32) (INFO-REF16503 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16492 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16495 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16497 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16499 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16502 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16503 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16496 A) (B-REF16498 B)
                                            (W-REF16500 W) (WORK-REF16501 WORK))
      (%%SSYGV ITYPE-REF16492 JOBZ UPLO N-REF16495 A-REF16496 LDA-REF16497
               B-REF16498 LDB-REF16499 W-REF16500 WORK-REF16501 LWORK-REF16502
               INFO-REF16503))))

(CFFI:DEFCFUN ("ssygv_2stage_" %%SSYGV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYGV_2STAGE
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGV_2STAGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16504 ':INT32) (N-REF16507 ':INT32)
                              (LDA-REF16509 ':INT32) (LDB-REF16511 ':INT32)
                              (LWORK-REF16514 ':INT32) (INFO-REF16515 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16504 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16507 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16509 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16511 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16514 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16515 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16508 A) (B-REF16510 B)
                                            (W-REF16512 W) (WORK-REF16513 WORK))
      (%%SSYGV_2STAGE ITYPE-REF16504 JOBZ UPLO N-REF16507 A-REF16508
                      LDA-REF16509 B-REF16510 LDB-REF16511 W-REF16512
                      WORK-REF16513 LWORK-REF16514 INFO-REF16515))))

(CFFI:DEFCFUN ("ssygvd_" %%SSYGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYGVD
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGVD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16516 ':INT32) (N-REF16519 ':INT32)
                              (LDA-REF16521 ':INT32) (LDB-REF16523 ':INT32)
                              (LWORK-REF16526 ':INT32)
                              (LIWORK-REF16528 ':INT32) (INFO-REF16529 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16516 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16519 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16521 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16523 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16526 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16528 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16529 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16520 A) (B-REF16522 B)
                                            (W-REF16524 W) (WORK-REF16525 WORK)
                                            (IWORK-REF16527 IWORK))
      (%%SSYGVD ITYPE-REF16516 JOBZ UPLO N-REF16519 A-REF16520 LDA-REF16521
                B-REF16522 LDB-REF16523 W-REF16524 WORK-REF16525 LWORK-REF16526
                IWORK-REF16527 LIWORK-REF16528 INFO-REF16529))))

(CFFI:DEFCFUN ("ssygvx_" %%SSYGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYGVX
                   (ITYPE JOBZ RANGE UPLO N A LDA B LDB VL VU IL IU ABSTOL M W
                    Z LDZ WORK LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGVX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16530 ':INT32) (N-REF16534 ':INT32)
                              (LDA-REF16536 ':INT32) (LDB-REF16538 ':INT32)
                              (VL-REF16539 ':FLOAT) (VU-REF16540 ':FLOAT)
                              (IL-REF16541 ':INT32) (IU-REF16542 ':INT32)
                              (ABSTOL-REF16543 ':FLOAT) (M-REF16544 ':INT32)
                              (LDZ-REF16547 ':INT32) (LWORK-REF16549 ':INT32)
                              (INFO-REF16552 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16530 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16534 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16536 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16538 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16539 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16540 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16541 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16542 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16543 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16544 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16547 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16549 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16552 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16535 A) (B-REF16537 B)
                                            (W-REF16545 W) (Z-REF16546 Z)
                                            (WORK-REF16548 WORK)
                                            (IWORK-REF16550 IWORK)
                                            (IFAIL-REF16551 IFAIL))
      (%%SSYGVX ITYPE-REF16530 JOBZ RANGE UPLO N-REF16534 A-REF16535
                LDA-REF16536 B-REF16537 LDB-REF16538 VL-REF16539 VU-REF16540
                IL-REF16541 IU-REF16542 ABSTOL-REF16543 M-REF16544 W-REF16545
                Z-REF16546 LDZ-REF16547 WORK-REF16548 LWORK-REF16549
                IWORK-REF16550 IFAIL-REF16551 INFO-REF16552))))

(CFFI:DEFCFUN ("ssyrfs_" %%SSYRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYRFS
                   (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16554 ':INT32) (NRHS-REF16555 ':INT32)
                              (LDA-REF16557 ':INT32) (LDAF-REF16559 ':INT32)
                              (LDB-REF16562 ':INT32) (LDX-REF16564 ':INT32)
                              (INFO-REF16569 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16554 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16555 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16557 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16559 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16562 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16564 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16569 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16556 A) (AF-REF16558 AF)
                                            (IPIV-REF16560 IPIV) (B-REF16561 B)
                                            (X-REF16563 X) (FERR-REF16565 FERR)
                                            (BERR-REF16566 BERR)
                                            (WORK-REF16567 WORK)
                                            (IWORK-REF16568 IWORK))
      (%%SSYRFS UPLO N-REF16554 NRHS-REF16555 A-REF16556 LDA-REF16557
                AF-REF16558 LDAF-REF16559 IPIV-REF16560 B-REF16561 LDB-REF16562
                X-REF16563 LDX-REF16564 FERR-REF16565 BERR-REF16566
                WORK-REF16567 IWORK-REF16568 INFO-REF16569))))

(CFFI:DEFCFUN ("ssyrfsx_" %%SSYRFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYRFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYRFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16572 ':INT32) (NRHS-REF16573 ':INT32)
                              (LDA-REF16575 ':INT32) (LDAF-REF16577 ':INT32)
                              (LDB-REF16581 ':INT32) (LDX-REF16583 ':INT32)
                              (RCOND-REF16584 ':FLOAT)
                              (N_ERR_BNDS-REF16586 ':INT32)
                              (NPARAMS-REF16589 ':INT32)
                              (INFO-REF16593 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16572 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16573 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16575 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16577 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16581 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16583 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16584 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF16586 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF16589 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16593 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16574 A) (AF-REF16576 AF)
                                            (IPIV-REF16578 IPIV) (S-REF16579 S)
                                            (B-REF16580 B) (X-REF16582 X)
                                            (BERR-REF16585 BERR)
                                            (ERR_BNDS_NORM-REF16587
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF16588
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF16590 PARAMS)
                                            (WORK-REF16591 WORK)
                                            (IWORK-REF16592 IWORK))
      (%%SSYRFSX UPLO EQUED N-REF16572 NRHS-REF16573 A-REF16574 LDA-REF16575
                 AF-REF16576 LDAF-REF16577 IPIV-REF16578 S-REF16579 B-REF16580
                 LDB-REF16581 X-REF16582 LDX-REF16583 RCOND-REF16584
                 BERR-REF16585 N_ERR_BNDS-REF16586 ERR_BNDS_NORM-REF16587
                 ERR_BNDS_COMP-REF16588 NPARAMS-REF16589 PARAMS-REF16590
                 WORK-REF16591 IWORK-REF16592 INFO-REF16593))))

(CFFI:DEFCFUN ("ssysv_" %%SSYSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYSV (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16595 ':INT32) (NRHS-REF16596 ':INT32)
                              (LDA-REF16598 ':INT32) (LDB-REF16601 ':INT32)
                              (LWORK-REF16603 ':INT32) (INFO-REF16604 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16595 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16596 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16598 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16601 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16603 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16604 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16597 A) (IPIV-REF16599 IPIV)
                                            (B-REF16600 B) (WORK-REF16602 WORK))
      (%%SSYSV UPLO N-REF16595 NRHS-REF16596 A-REF16597 LDA-REF16598
               IPIV-REF16599 B-REF16600 LDB-REF16601 WORK-REF16602
               LWORK-REF16603 INFO-REF16604))))

(CFFI:DEFCFUN ("ssysv_aa_" %%SSYSV_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYSV_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSV_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16606 ':INT32) (NRHS-REF16607 ':INT32)
                              (LDA-REF16609 ':INT32) (LDB-REF16612 ':INT32)
                              (LWORK-REF16614 ':INT32) (INFO-REF16615 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16606 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16607 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16609 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16612 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16614 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16615 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16608 A) (IPIV-REF16610 IPIV)
                                            (B-REF16611 B) (WORK-REF16613 WORK))
      (%%SSYSV_AA UPLO N-REF16606 NRHS-REF16607 A-REF16608 LDA-REF16609
                  IPIV-REF16610 B-REF16611 LDB-REF16612 WORK-REF16613
                  LWORK-REF16614 INFO-REF16615))))

(CFFI:DEFCFUN ("ssysv_aa_2stage_" %%SSYSV_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYSV_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSV_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16617 ':INT32) (NRHS-REF16618 ':INT32)
                              (LDA-REF16620 ':INT32) (LTB-REF16622 ':INT32)
                              (LDB-REF16626 ':INT32) (LWORK-REF16628 ':INT32)
                              (INFO-REF16629 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16617 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16618 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16620 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF16622 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16626 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16628 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16629 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16619 A) (TB-REF16621 TB)
                                            (IPIV-REF16623 IPIV)
                                            (IPIV2-REF16624 IPIV2)
                                            (B-REF16625 B) (WORK-REF16627 WORK))
      (%%SSYSV_AA_2STAGE UPLO N-REF16617 NRHS-REF16618 A-REF16619 LDA-REF16620
                         TB-REF16621 LTB-REF16622 IPIV-REF16623 IPIV2-REF16624
                         B-REF16625 LDB-REF16626 WORK-REF16627 LWORK-REF16628
                         INFO-REF16629))))

(CFFI:DEFCFUN ("ssysv_rk_" %%SSYSV_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYSV_RK (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSV_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16631 ':INT32) (NRHS-REF16632 ':INT32)
                              (LDA-REF16634 ':INT32) (LDB-REF16638 ':INT32)
                              (LWORK-REF16640 ':INT32) (INFO-REF16641 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16631 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16632 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16634 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16638 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16640 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16641 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16633 A) (E-REF16635 E)
                                            (IPIV-REF16636 IPIV) (B-REF16637 B)
                                            (WORK-REF16639 WORK))
      (%%SSYSV_RK UPLO N-REF16631 NRHS-REF16632 A-REF16633 LDA-REF16634
                  E-REF16635 IPIV-REF16636 B-REF16637 LDB-REF16638
                  WORK-REF16639 LWORK-REF16640 INFO-REF16641))))

(CFFI:DEFCFUN ("ssysv_rook_" %%SSYSV_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYSV_ROOK (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSV_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16643 ':INT32) (NRHS-REF16644 ':INT32)
                              (LDA-REF16646 ':INT32) (LDB-REF16649 ':INT32)
                              (LWORK-REF16651 ':INT32) (INFO-REF16652 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16643 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16644 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16646 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16649 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16651 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16652 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16645 A) (IPIV-REF16647 IPIV)
                                            (B-REF16648 B) (WORK-REF16650 WORK))
      (%%SSYSV_ROOK UPLO N-REF16643 NRHS-REF16644 A-REF16645 LDA-REF16646
                    IPIV-REF16647 B-REF16648 LDB-REF16649 WORK-REF16650
                    LWORK-REF16651 INFO-REF16652))))

(CFFI:DEFCFUN ("ssysvx_" %%SSYSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYSVX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR
                    BERR WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16655 ':INT32) (NRHS-REF16656 ':INT32)
                              (LDA-REF16658 ':INT32) (LDAF-REF16660 ':INT32)
                              (LDB-REF16663 ':INT32) (LDX-REF16665 ':INT32)
                              (RCOND-REF16666 ':FLOAT) (LWORK-REF16670 ':INT32)
                              (INFO-REF16672 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16655 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16656 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16658 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16660 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16663 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16665 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16666 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16670 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16672 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16657 A) (AF-REF16659 AF)
                                            (IPIV-REF16661 IPIV) (B-REF16662 B)
                                            (X-REF16664 X) (FERR-REF16667 FERR)
                                            (BERR-REF16668 BERR)
                                            (WORK-REF16669 WORK)
                                            (IWORK-REF16671 IWORK))
      (%%SSYSVX FACT UPLO N-REF16655 NRHS-REF16656 A-REF16657 LDA-REF16658
                AF-REF16659 LDAF-REF16660 IPIV-REF16661 B-REF16662 LDB-REF16663
                X-REF16664 LDX-REF16665 RCOND-REF16666 FERR-REF16667
                BERR-REF16668 WORK-REF16669 LWORK-REF16670 IWORK-REF16671
                INFO-REF16672))))

(CFFI:DEFCFUN ("ssysvxx_" %%SSYSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYSVXX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16675 ':INT32) (NRHS-REF16676 ':INT32)
                              (LDA-REF16678 ':INT32) (LDAF-REF16680 ':INT32)
                              (LDB-REF16685 ':INT32) (LDX-REF16687 ':INT32)
                              (RCOND-REF16688 ':FLOAT)
                              (RPVGRW-REF16689 ':FLOAT)
                              (N_ERR_BNDS-REF16691 ':INT32)
                              (NPARAMS-REF16694 ':INT32)
                              (INFO-REF16698 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16675 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16676 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16678 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16680 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16685 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16687 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16688 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF16689 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF16691 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF16694 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16698 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16677 A) (AF-REF16679 AF)
                                            (IPIV-REF16681 IPIV) (S-REF16683 S)
                                            (B-REF16684 B) (X-REF16686 X)
                                            (BERR-REF16690 BERR)
                                            (ERR_BNDS_NORM-REF16692
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF16693
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF16695 PARAMS)
                                            (WORK-REF16696 WORK)
                                            (IWORK-REF16697 IWORK))
      (%%SSYSVXX FACT UPLO N-REF16675 NRHS-REF16676 A-REF16677 LDA-REF16678
                 AF-REF16679 LDAF-REF16680 IPIV-REF16681 EQUED S-REF16683
                 B-REF16684 LDB-REF16685 X-REF16686 LDX-REF16687 RCOND-REF16688
                 RPVGRW-REF16689 BERR-REF16690 N_ERR_BNDS-REF16691
                 ERR_BNDS_NORM-REF16692 ERR_BNDS_COMP-REF16693 NPARAMS-REF16694
                 PARAMS-REF16695 WORK-REF16696 IWORK-REF16697 INFO-REF16698))))

(CFFI:DEFCFUN ("ssyswapr_" %%SSYSWAPR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (I1 :POINTER)
  (I2 :POINTER))

(COMMON-LISP:DEFUN %SSYSWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSWAPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16700 ':INT32) (LDA-REF16702 ':INT32)
                              (I1-REF16703 ':INT32) (I2-REF16704 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16700 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16702 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF16703 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF16704 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16701 A))
      (%%SSYSWAPR UPLO N-REF16700 A-REF16701 LDA-REF16702 I1-REF16703
                  I2-REF16704))))

(CFFI:DEFCFUN ("ssytd2_" %%SSYTD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTD2 (UPLO N A LDA D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTD2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16706 ':INT32) (LDA-REF16708 ':INT32)
                              (INFO-REF16712 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16706 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16708 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16712 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16707 A) (D-REF16709 D)
                                            (E-REF16710 E) (TAU-REF16711 TAU))
      (%%SSYTD2 UPLO N-REF16706 A-REF16707 LDA-REF16708 D-REF16709 E-REF16710
                TAU-REF16711 INFO-REF16712))))

(CFFI:DEFCFUN ("ssytf2_" %%SSYTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTF2 (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16714 ':INT32) (LDA-REF16716 ':INT32)
                              (INFO-REF16718 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16714 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16716 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16718 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16715 A) (IPIV-REF16717 IPIV))
      (%%SSYTF2 UPLO N-REF16714 A-REF16715 LDA-REF16716 IPIV-REF16717
                INFO-REF16718))))

(CFFI:DEFCFUN ("ssytf2_rk_" %%SSYTF2_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTF2_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16720 ':INT32) (LDA-REF16722 ':INT32)
                              (INFO-REF16725 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16720 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16722 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16725 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16721 A) (E-REF16723 E)
                                            (IPIV-REF16724 IPIV))
      (%%SSYTF2_RK UPLO N-REF16720 A-REF16721 LDA-REF16722 E-REF16723
                   IPIV-REF16724 INFO-REF16725))))

(CFFI:DEFCFUN ("ssytf2_rook_" %%SSYTF2_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTF2_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16727 ':INT32) (LDA-REF16729 ':INT32)
                              (INFO-REF16731 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16727 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16729 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16731 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16728 A) (IPIV-REF16730 IPIV))
      (%%SSYTF2_ROOK UPLO N-REF16727 A-REF16728 LDA-REF16729 IPIV-REF16730
                     INFO-REF16731))))

(CFFI:DEFCFUN ("ssytrd_" %%SSYTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRD (UPLO N A LDA D E TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16733 ':INT32) (LDA-REF16735 ':INT32)
                              (LWORK-REF16740 ':INT32) (INFO-REF16741 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16733 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16735 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16740 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16741 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16734 A) (D-REF16736 D)
                                            (E-REF16737 E) (TAU-REF16738 TAU)
                                            (WORK-REF16739 WORK))
      (%%SSYTRD UPLO N-REF16733 A-REF16734 LDA-REF16735 D-REF16736 E-REF16737
                TAU-REF16738 WORK-REF16739 LWORK-REF16740 INFO-REF16741))))

(CFFI:DEFCFUN ("ssytrd_2stage_" %%SSYTRD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (HOUS2 :POINTER)
  (LHOUS2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRD_2STAGE
                   (VECT UPLO N A LDA D E TAU HOUS2 LHOUS2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        HOUS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LHOUS2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16744 ':INT32) (LDA-REF16746 ':INT32)
                              (LHOUS2-REF16751 ':INT32)
                              (LWORK-REF16753 ':INT32) (INFO-REF16754 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16744 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16746 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF16751 :INT32) LHOUS2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16753 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16754 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16745 A) (D-REF16747 D)
                                            (E-REF16748 E) (TAU-REF16749 TAU)
                                            (HOUS2-REF16750 HOUS2)
                                            (WORK-REF16752 WORK))
      (%%SSYTRD_2STAGE VECT UPLO N-REF16744 A-REF16745 LDA-REF16746 D-REF16747
                       E-REF16748 TAU-REF16749 HOUS2-REF16750 LHOUS2-REF16751
                       WORK-REF16752 LWORK-REF16753 INFO-REF16754))))

(CFFI:DEFCFUN ("ssytrd_sy2sb_" %%SSYTRD_SY2SB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRD_SY2SB (UPLO N KD A LDA AB LDAB TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRD_SY2SB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16756 ':INT32) (KD-REF16757 ':INT32)
                              (LDA-REF16759 ':INT32) (LDAB-REF16761 ':INT32)
                              (LWORK-REF16764 ':INT32) (INFO-REF16765 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16756 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16757 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16759 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16761 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16764 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16765 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16758 A) (AB-REF16760 AB)
                                            (TAU-REF16762 TAU)
                                            (WORK-REF16763 WORK))
      (%%SSYTRD_SY2SB UPLO N-REF16756 KD-REF16757 A-REF16758 LDA-REF16759
                      AB-REF16760 LDAB-REF16761 TAU-REF16762 WORK-REF16763
                      LWORK-REF16764 INFO-REF16765))))

(CFFI:DEFCFUN ("ssytrf_" %%SSYTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16767 ':INT32) (LDA-REF16769 ':INT32)
                              (LWORK-REF16772 ':INT32) (INFO-REF16773 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16767 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16769 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16772 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16773 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16768 A) (IPIV-REF16770 IPIV)
                                            (WORK-REF16771 WORK))
      (%%SSYTRF UPLO N-REF16767 A-REF16768 LDA-REF16769 IPIV-REF16770
                WORK-REF16771 LWORK-REF16772 INFO-REF16773))))

(CFFI:DEFCFUN ("ssytrf_aa_" %%SSYTRF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16775 ':INT32) (LDA-REF16777 ':INT32)
                              (LWORK-REF16780 ':INT32) (INFO-REF16781 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16775 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16777 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16780 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16781 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16776 A) (IPIV-REF16778 IPIV)
                                            (WORK-REF16779 WORK))
      (%%SSYTRF_AA UPLO N-REF16775 A-REF16776 LDA-REF16777 IPIV-REF16778
                   WORK-REF16779 LWORK-REF16780 INFO-REF16781))))

(CFFI:DEFCFUN ("ssytrf_aa_2stage_" %%SSYTRF_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRF_AA_2STAGE
                   (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRF_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16783 ':INT32) (LDA-REF16785 ':INT32)
                              (LTB-REF16787 ':INT32) (LWORK-REF16791 ':INT32)
                              (INFO-REF16792 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16783 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16785 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF16787 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16791 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16792 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16784 A) (TB-REF16786 TB)
                                            (IPIV-REF16788 IPIV)
                                            (IPIV2-REF16789 IPIV2)
                                            (WORK-REF16790 WORK))
      (%%SSYTRF_AA_2STAGE UPLO N-REF16783 A-REF16784 LDA-REF16785 TB-REF16786
                          LTB-REF16787 IPIV-REF16788 IPIV2-REF16789
                          WORK-REF16790 LWORK-REF16791 INFO-REF16792))))

(CFFI:DEFCFUN ("ssytrf_rk_" %%SSYTRF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16794 ':INT32) (LDA-REF16796 ':INT32)
                              (LWORK-REF16800 ':INT32) (INFO-REF16801 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16794 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16796 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16800 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16801 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16795 A) (E-REF16797 E)
                                            (IPIV-REF16798 IPIV)
                                            (WORK-REF16799 WORK))
      (%%SSYTRF_RK UPLO N-REF16794 A-REF16795 LDA-REF16796 E-REF16797
                   IPIV-REF16798 WORK-REF16799 LWORK-REF16800 INFO-REF16801))))

(CFFI:DEFCFUN ("ssytrf_rook_" %%SSYTRF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRF_ROOK (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16803 ':INT32) (LDA-REF16805 ':INT32)
                              (LWORK-REF16808 ':INT32) (INFO-REF16809 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16803 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16805 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16808 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16809 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16804 A) (IPIV-REF16806 IPIV)
                                            (WORK-REF16807 WORK))
      (%%SSYTRF_ROOK UPLO N-REF16803 A-REF16804 LDA-REF16805 IPIV-REF16806
                     WORK-REF16807 LWORK-REF16808 INFO-REF16809))))

(CFFI:DEFCFUN ("ssytri_" %%SSYTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRI (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16811 ':INT32) (LDA-REF16813 ':INT32)
                              (INFO-REF16816 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16811 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16813 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16816 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16812 A) (IPIV-REF16814 IPIV)
                                            (WORK-REF16815 WORK))
      (%%SSYTRI UPLO N-REF16811 A-REF16812 LDA-REF16813 IPIV-REF16814
                WORK-REF16815 INFO-REF16816))))

(CFFI:DEFCFUN ("ssytri2_" %%SSYTRI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRI2 (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16818 ':INT32) (LDA-REF16820 ':INT32)
                              (LWORK-REF16823 ':INT32) (INFO-REF16824 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16818 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16820 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16823 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16824 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16819 A) (IPIV-REF16821 IPIV)
                                            (WORK-REF16822 WORK))
      (%%SSYTRI2 UPLO N-REF16818 A-REF16819 LDA-REF16820 IPIV-REF16821
                 WORK-REF16822 LWORK-REF16823 INFO-REF16824))))

(CFFI:DEFCFUN ("ssytri2x_" %%SSYTRI2X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRI2X (UPLO N A LDA IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI2X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16826 ':INT32) (LDA-REF16828 ':INT32)
                              (NB-REF16831 ':INT32) (INFO-REF16832 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16826 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16828 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF16831 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16832 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16827 A) (IPIV-REF16829 IPIV)
                                            (WORK-REF16830 WORK))
      (%%SSYTRI2X UPLO N-REF16826 A-REF16827 LDA-REF16828 IPIV-REF16829
                  WORK-REF16830 NB-REF16831 INFO-REF16832))))

(CFFI:DEFCFUN ("ssytri_3_" %%SSYTRI_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16834 ':INT32) (LDA-REF16836 ':INT32)
                              (LWORK-REF16840 ':INT32) (INFO-REF16841 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16834 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16836 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16840 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16841 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16835 A) (E-REF16837 E)
                                            (IPIV-REF16838 IPIV)
                                            (WORK-REF16839 WORK))
      (%%SSYTRI_3 UPLO N-REF16834 A-REF16835 LDA-REF16836 E-REF16837
                  IPIV-REF16838 WORK-REF16839 LWORK-REF16840 INFO-REF16841))))

(CFFI:DEFCFUN ("ssytri_3x_" %%SSYTRI_3X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI_3X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16843 ':INT32) (LDA-REF16845 ':INT32)
                              (NB-REF16849 ':INT32) (INFO-REF16850 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16843 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16845 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF16849 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16850 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16844 A) (E-REF16846 E)
                                            (IPIV-REF16847 IPIV)
                                            (WORK-REF16848 WORK))
      (%%SSYTRI_3X UPLO N-REF16843 A-REF16844 LDA-REF16845 E-REF16846
                   IPIV-REF16847 WORK-REF16848 NB-REF16849 INFO-REF16850))))

(CFFI:DEFCFUN ("ssytri_rook_" %%SSYTRI_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16852 ':INT32) (LDA-REF16854 ':INT32)
                              (INFO-REF16857 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16852 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16854 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16857 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16853 A) (IPIV-REF16855 IPIV)
                                            (WORK-REF16856 WORK))
      (%%SSYTRI_ROOK UPLO N-REF16852 A-REF16853 LDA-REF16854 IPIV-REF16855
                     WORK-REF16856 INFO-REF16857))))

(CFFI:DEFCFUN ("ssytrs_" %%SSYTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16859 ':INT32) (NRHS-REF16860 ':INT32)
                              (LDA-REF16862 ':INT32) (LDB-REF16865 ':INT32)
                              (INFO-REF16866 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16859 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16860 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16862 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16865 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16866 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16861 A) (IPIV-REF16863 IPIV)
                                            (B-REF16864 B))
      (%%SSYTRS UPLO N-REF16859 NRHS-REF16860 A-REF16861 LDA-REF16862
                IPIV-REF16863 B-REF16864 LDB-REF16865 INFO-REF16866))))

(CFFI:DEFCFUN ("ssytrs2_" %%SSYTRS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16868 ':INT32) (NRHS-REF16869 ':INT32)
                              (LDA-REF16871 ':INT32) (LDB-REF16874 ':INT32)
                              (INFO-REF16876 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16868 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16869 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16871 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16874 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16876 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16870 A) (IPIV-REF16872 IPIV)
                                            (B-REF16873 B) (WORK-REF16875 WORK))
      (%%SSYTRS2 UPLO N-REF16868 NRHS-REF16869 A-REF16870 LDA-REF16871
                 IPIV-REF16872 B-REF16873 LDB-REF16874 WORK-REF16875
                 INFO-REF16876))))

(CFFI:DEFCFUN ("ssytrs_3_" %%SSYTRS_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16878 ':INT32) (NRHS-REF16879 ':INT32)
                              (LDA-REF16881 ':INT32) (LDB-REF16885 ':INT32)
                              (INFO-REF16886 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16878 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16879 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16881 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16885 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16886 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16880 A) (E-REF16882 E)
                                            (IPIV-REF16883 IPIV) (B-REF16884 B))
      (%%SSYTRS_3 UPLO N-REF16878 NRHS-REF16879 A-REF16880 LDA-REF16881
                  E-REF16882 IPIV-REF16883 B-REF16884 LDB-REF16885
                  INFO-REF16886))))

(CFFI:DEFCFUN ("ssytrs_aa_" %%SSYTRS_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRS_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16888 ':INT32) (NRHS-REF16889 ':INT32)
                              (LDA-REF16891 ':INT32) (LDB-REF16894 ':INT32)
                              (LWORK-REF16896 ':INT32) (INFO-REF16897 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16888 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16889 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16891 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16894 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16896 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16897 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16890 A) (IPIV-REF16892 IPIV)
                                            (B-REF16893 B) (WORK-REF16895 WORK))
      (%%SSYTRS_AA UPLO N-REF16888 NRHS-REF16889 A-REF16890 LDA-REF16891
                   IPIV-REF16892 B-REF16893 LDB-REF16894 WORK-REF16895
                   LWORK-REF16896 INFO-REF16897))))

(CFFI:DEFCFUN ("ssytrs_aa_2stage_" %%SSYTRS_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRS_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16899 ':INT32) (NRHS-REF16900 ':INT32)
                              (LDA-REF16902 ':INT32) (LTB-REF16904 ':INT32)
                              (LDB-REF16908 ':INT32) (INFO-REF16909 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16899 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16900 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16902 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF16904 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16908 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16909 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16901 A) (TB-REF16903 TB)
                                            (IPIV-REF16905 IPIV)
                                            (IPIV2-REF16906 IPIV2)
                                            (B-REF16907 B))
      (%%SSYTRS_AA_2STAGE UPLO N-REF16899 NRHS-REF16900 A-REF16901 LDA-REF16902
                          TB-REF16903 LTB-REF16904 IPIV-REF16905 IPIV2-REF16906
                          B-REF16907 LDB-REF16908 INFO-REF16909))))

(CFFI:DEFCFUN ("ssytrs_rook_" %%SSYTRS_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SSYTRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16911 ':INT32) (NRHS-REF16912 ':INT32)
                              (LDA-REF16914 ':INT32) (LDB-REF16917 ':INT32)
                              (INFO-REF16918 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16911 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16912 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16914 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16917 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16918 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16913 A) (IPIV-REF16915 IPIV)
                                            (B-REF16916 B))
      (%%SSYTRS_ROOK UPLO N-REF16911 NRHS-REF16912 A-REF16913 LDA-REF16914
                     IPIV-REF16915 B-REF16916 LDB-REF16917 INFO-REF16918))))

(CFFI:DEFCFUN ("stbcon_" %%STBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STBCON (NORM UPLO DIAG N KD AB LDAB RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16922 ':INT32) (KD-REF16923 ':INT32)
                              (LDAB-REF16925 ':INT32) (RCOND-REF16926 ':FLOAT)
                              (INFO-REF16929 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16922 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16923 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16925 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16926 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16929 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16924 AB)
                                            (WORK-REF16927 WORK)
                                            (IWORK-REF16928 IWORK))
      (%%STBCON NORM UPLO DIAG N-REF16922 KD-REF16923 AB-REF16924 LDAB-REF16925
                RCOND-REF16926 WORK-REF16927 IWORK-REF16928 INFO-REF16929))))

(CFFI:DEFCFUN ("stbrfs_" %%STBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STBRFS
                   (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB X LDX FERR BERR
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16933 ':INT32) (KD-REF16934 ':INT32)
                              (NRHS-REF16935 ':INT32) (LDAB-REF16937 ':INT32)
                              (LDB-REF16939 ':INT32) (LDX-REF16941 ':INT32)
                              (INFO-REF16946 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16933 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16934 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16935 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16937 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16939 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16941 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16946 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16936 AB) (B-REF16938 B)
                                            (X-REF16940 X) (FERR-REF16942 FERR)
                                            (BERR-REF16943 BERR)
                                            (WORK-REF16944 WORK)
                                            (IWORK-REF16945 IWORK))
      (%%STBRFS UPLO TRANS DIAG N-REF16933 KD-REF16934 NRHS-REF16935
                AB-REF16936 LDAB-REF16937 B-REF16938 LDB-REF16939 X-REF16940
                LDX-REF16941 FERR-REF16942 BERR-REF16943 WORK-REF16944
                IWORK-REF16945 INFO-REF16946))))

(CFFI:DEFCFUN ("stbtrs_" %%STBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STBTRS (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16950 ':INT32) (KD-REF16951 ':INT32)
                              (NRHS-REF16952 ':INT32) (LDAB-REF16954 ':INT32)
                              (LDB-REF16956 ':INT32) (INFO-REF16957 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16950 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16951 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16952 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16954 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16956 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16957 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16953 AB) (B-REF16955 B))
      (%%STBTRS UPLO TRANS DIAG N-REF16950 KD-REF16951 NRHS-REF16952
                AB-REF16953 LDAB-REF16954 B-REF16955 LDB-REF16956
                INFO-REF16957))))

(CFFI:DEFCFUN ("stfsm_" %%STFSM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %STFSM (TRANSR SIDE UPLO TRANS DIAG M N ALPHA A B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STFSM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16963 ':INT32) (N-REF16964 ':INT32)
                              (ALPHA-REF16965 ':FLOAT) (LDB-REF16968 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16963 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16964 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF16965 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16968 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16966 A) (B-REF16967 B))
      (%%STFSM TRANSR SIDE UPLO TRANS DIAG M-REF16963 N-REF16964 ALPHA-REF16965
               A-REF16966 B-REF16967 LDB-REF16968))))

(CFFI:DEFCFUN ("stftri_" %%STFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STFTRI (TRANSR UPLO DIAG N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STFTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16972 ':INT32) (INFO-REF16974 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16972 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16974 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16973 A))
      (%%STFTRI TRANSR UPLO DIAG N-REF16972 A-REF16973 INFO-REF16974))))

(CFFI:DEFCFUN ("stfttp_" %%STFTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (ARF :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STFTTP (TRANSR UPLO N ARF AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STFTTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ARF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16977 ':INT32) (INFO-REF16980 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16977 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16980 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF16978 ARF) (AP-REF16979 AP))
      (%%STFTTP TRANSR UPLO N-REF16977 ARF-REF16978 AP-REF16979
                INFO-REF16980))))

(CFFI:DEFCFUN ("stfttr_" %%STFTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (ARF :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STFTTR (TRANSR UPLO N ARF A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STFTTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ARF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16983 ':INT32) (LDA-REF16986 ':INT32)
                              (INFO-REF16987 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16983 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16986 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16987 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF16984 ARF) (A-REF16985 A))
      (%%STFTTR TRANSR UPLO N-REF16983 ARF-REF16984 A-REF16985 LDA-REF16986
                INFO-REF16987))))

(CFFI:DEFCFUN ("stgevc_" %%STGEVC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (S :POINTER)
  (LDS :POINTER)
  (P :POINTER)
  (LDP :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STGEVC
                   (SIDE HOWMNY SELECT N S LDS P LDP VL LDVL VR LDVR MM M WORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGEVC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16991 ':INT32) (LDS-REF16993 ':INT32)
                              (LDP-REF16995 ':INT32) (LDVL-REF16997 ':INT32)
                              (LDVR-REF16999 ':INT32) (MM-REF17000 ':INT32)
                              (M-REF17001 ':INT32) (INFO-REF17003 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16991 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF16993 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF16995 :INT32) LDP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF16997 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF16999 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17000 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17001 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17003 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF16990 SELECT)
                                            (S-REF16992 S) (P-REF16994 P)
                                            (VL-REF16996 VL) (VR-REF16998 VR)
                                            (WORK-REF17002 WORK))
      (%%STGEVC SIDE HOWMNY SELECT-REF16990 N-REF16991 S-REF16992 LDS-REF16993
                P-REF16994 LDP-REF16995 VL-REF16996 LDVL-REF16997 VR-REF16998
                LDVR-REF16999 MM-REF17000 M-REF17001 WORK-REF17002
                INFO-REF17003))))

(CFFI:DEFCFUN ("stgex2_" %%STGEX2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (J1 :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STGEX2
                   (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ J1 N1 N2 WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGEX2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF17004 ':INT32) (WANTZ-REF17005 ':INT32)
                              (N-REF17006 ':INT32) (LDA-REF17008 ':INT32)
                              (LDB-REF17010 ':INT32) (LDQ-REF17012 ':INT32)
                              (LDZ-REF17014 ':INT32) (J1-REF17015 ':INT32)
                              (N1-REF17016 ':INT32) (N2-REF17017 ':INT32)
                              (LWORK-REF17019 ':INT32) (INFO-REF17020 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF17004 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF17005 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17006 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17008 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17010 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17012 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17014 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF17015 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF17016 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF17017 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17019 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17020 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17007 A) (B-REF17009 B)
                                            (Q-REF17011 Q) (Z-REF17013 Z)
                                            (WORK-REF17018 WORK))
      (%%STGEX2 WANTQ-REF17004 WANTZ-REF17005 N-REF17006 A-REF17007
                LDA-REF17008 B-REF17009 LDB-REF17010 Q-REF17011 LDQ-REF17012
                Z-REF17013 LDZ-REF17014 J1-REF17015 N1-REF17016 N2-REF17017
                WORK-REF17018 LWORK-REF17019 INFO-REF17020))))

(CFFI:DEFCFUN ("stgexc_" %%STGEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (IFST :POINTER)
  (ILST :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STGEXC
                   (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ IFST ILST WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGEXC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF17021 ':INT32) (WANTZ-REF17022 ':INT32)
                              (N-REF17023 ':INT32) (LDA-REF17025 ':INT32)
                              (LDB-REF17027 ':INT32) (LDQ-REF17029 ':INT32)
                              (LDZ-REF17031 ':INT32) (IFST-REF17032 ':INT32)
                              (ILST-REF17033 ':INT32) (LWORK-REF17035 ':INT32)
                              (INFO-REF17036 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF17021 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF17022 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17023 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17025 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17027 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17029 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17031 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF17032 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF17033 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17035 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17036 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17024 A) (B-REF17026 B)
                                            (Q-REF17028 Q) (Z-REF17030 Z)
                                            (WORK-REF17034 WORK))
      (%%STGEXC WANTQ-REF17021 WANTZ-REF17022 N-REF17023 A-REF17024
                LDA-REF17025 B-REF17026 LDB-REF17027 Q-REF17028 LDQ-REF17029
                Z-REF17030 LDZ-REF17031 IFST-REF17032 ILST-REF17033
                WORK-REF17034 LWORK-REF17035 INFO-REF17036))))

(CFFI:DEFCFUN ("stgsen_" %%STGSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (M :POINTER)
  (PL :POINTER)
  (PR :POINTER)
  (DIF :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STGSEN
                   (IJOB WANTQ WANTZ SELECT N A LDA B LDB ALPHAR ALPHAI BETA Q
                    LDQ Z LDZ M PL PR DIF WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGSEN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF17037 ':INT32) (WANTQ-REF17038 ':INT32)
                              (WANTZ-REF17039 ':INT32) (N-REF17041 ':INT32)
                              (LDA-REF17043 ':INT32) (LDB-REF17045 ':INT32)
                              (LDQ-REF17050 ':INT32) (LDZ-REF17052 ':INT32)
                              (M-REF17053 ':INT32) (PL-REF17054 ':FLOAT)
                              (PR-REF17055 ':FLOAT) (LWORK-REF17058 ':INT32)
                              (LIWORK-REF17060 ':INT32) (INFO-REF17061 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF17037 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF17038 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF17039 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17041 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17043 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17045 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17050 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17052 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17053 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF17054 :FLOAT) PL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF17055 :FLOAT) PR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17058 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF17060 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17061 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17040 SELECT)
                                            (A-REF17042 A) (B-REF17044 B)
                                            (ALPHAR-REF17046 ALPHAR)
                                            (ALPHAI-REF17047 ALPHAI)
                                            (BETA-REF17048 BETA) (Q-REF17049 Q)
                                            (Z-REF17051 Z) (DIF-REF17056 DIF)
                                            (WORK-REF17057 WORK)
                                            (IWORK-REF17059 IWORK))
      (%%STGSEN IJOB-REF17037 WANTQ-REF17038 WANTZ-REF17039 SELECT-REF17040
                N-REF17041 A-REF17042 LDA-REF17043 B-REF17044 LDB-REF17045
                ALPHAR-REF17046 ALPHAI-REF17047 BETA-REF17048 Q-REF17049
                LDQ-REF17050 Z-REF17051 LDZ-REF17052 M-REF17053 PL-REF17054
                PR-REF17055 DIF-REF17056 WORK-REF17057 LWORK-REF17058
                IWORK-REF17059 LIWORK-REF17060 INFO-REF17061))))

(CFFI:DEFCFUN ("stgsja_" %%STGSJA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TOLA :POINTER)
  (TOLB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (NCYCLE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STGSJA
                   (JOBU JOBV JOBQ M P N K L A LDA B LDB TOLA TOLB ALPHA BETA U
                    LDU V LDV Q LDQ WORK NCYCLE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGSJA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCYCLE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17065 ':INT32) (P-REF17066 ':INT32)
                              (N-REF17067 ':INT32) (K-REF17068 ':INT32)
                              (L-REF17069 ':INT32) (LDA-REF17071 ':INT32)
                              (LDB-REF17073 ':INT32) (TOLA-REF17074 ':FLOAT)
                              (TOLB-REF17075 ':FLOAT) (LDU-REF17079 ':INT32)
                              (LDV-REF17081 ':INT32) (LDQ-REF17083 ':INT32)
                              (NCYCLE-REF17085 ':INT32) (INFO-REF17086 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17065 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF17066 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17067 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17068 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17069 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17071 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17073 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF17074 :FLOAT) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF17075 :FLOAT) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF17079 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17081 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17083 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF17085 :INT32) NCYCLE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17086 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17070 A) (B-REF17072 B)
                                            (ALPHA-REF17076 ALPHA)
                                            (BETA-REF17077 BETA) (U-REF17078 U)
                                            (V-REF17080 V) (Q-REF17082 Q)
                                            (WORK-REF17084 WORK))
      (%%STGSJA JOBU JOBV JOBQ M-REF17065 P-REF17066 N-REF17067 K-REF17068
                L-REF17069 A-REF17070 LDA-REF17071 B-REF17072 LDB-REF17073
                TOLA-REF17074 TOLB-REF17075 ALPHA-REF17076 BETA-REF17077
                U-REF17078 LDU-REF17079 V-REF17080 LDV-REF17081 Q-REF17082
                LDQ-REF17083 WORK-REF17084 NCYCLE-REF17085 INFO-REF17086))))

(CFFI:DEFCFUN ("stgsna_" %%STGSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (S :POINTER)
  (DIF :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STGSNA
                   (JOB HOWMNY SELECT N A LDA B LDB VL LDVL VR LDVR S DIF MM M
                    WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGSNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17090 ':INT32) (LDA-REF17092 ':INT32)
                              (LDB-REF17094 ':INT32) (LDVL-REF17096 ':INT32)
                              (LDVR-REF17098 ':INT32) (MM-REF17101 ':INT32)
                              (M-REF17102 ':INT32) (LWORK-REF17104 ':INT32)
                              (INFO-REF17106 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17090 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17092 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17094 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17096 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17098 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17101 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17102 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17104 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17106 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17089 SELECT)
                                            (A-REF17091 A) (B-REF17093 B)
                                            (VL-REF17095 VL) (VR-REF17097 VR)
                                            (S-REF17099 S) (DIF-REF17100 DIF)
                                            (WORK-REF17103 WORK)
                                            (IWORK-REF17105 IWORK))
      (%%STGSNA JOB HOWMNY SELECT-REF17089 N-REF17090 A-REF17091 LDA-REF17092
                B-REF17093 LDB-REF17094 VL-REF17095 LDVL-REF17096 VR-REF17097
                LDVR-REF17098 S-REF17099 DIF-REF17100 MM-REF17101 M-REF17102
                WORK-REF17103 LWORK-REF17104 IWORK-REF17105 INFO-REF17106))))

(CFFI:DEFCFUN ("stgsy2_" %%STGSY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (IJOB :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (D :POINTER)
  (LDD :POINTER)
  (E :POINTER)
  (LDE :POINTER)
  (F :POINTER)
  (LDF :POINTER)
  (SCALE :POINTER)
  (RDSUM :POINTER)
  (RDSCAL :POINTER)
  (IWORK :POINTER)
  (PQ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STGSY2
                   (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE
                    RDSUM RDSCAL IWORK PQ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGSY2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSUM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSCAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF17108 ':INT32) (M-REF17109 ':INT32)
                              (N-REF17110 ':INT32) (LDA-REF17112 ':INT32)
                              (LDB-REF17114 ':INT32) (LDC-REF17116 ':INT32)
                              (LDD-REF17118 ':INT32) (LDE-REF17120 ':INT32)
                              (LDF-REF17122 ':INT32) (SCALE-REF17123 ':FLOAT)
                              (RDSUM-REF17124 ':FLOAT)
                              (RDSCAL-REF17125 ':FLOAT) (PQ-REF17127 ':INT32)
                              (INFO-REF17128 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF17108 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17109 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17110 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17112 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17114 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17116 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF17118 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF17120 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF17122 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF17123 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF17124 :FLOAT) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF17125 :FLOAT) RDSCAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PQ-REF17127 :INT32) PQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17128 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17111 A) (B-REF17113 B)
                                            (C-REF17115 C) (D-REF17117 D)
                                            (E-REF17119 E) (F-REF17121 F)
                                            (IWORK-REF17126 IWORK))
      (%%STGSY2 TRANS IJOB-REF17108 M-REF17109 N-REF17110 A-REF17111
                LDA-REF17112 B-REF17113 LDB-REF17114 C-REF17115 LDC-REF17116
                D-REF17117 LDD-REF17118 E-REF17119 LDE-REF17120 F-REF17121
                LDF-REF17122 SCALE-REF17123 RDSUM-REF17124 RDSCAL-REF17125
                IWORK-REF17126 PQ-REF17127 INFO-REF17128))))

(CFFI:DEFCFUN ("stgsyl_" %%STGSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (IJOB :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (D :POINTER)
  (LDD :POINTER)
  (E :POINTER)
  (LDE :POINTER)
  (F :POINTER)
  (LDF :POINTER)
  (SCALE :POINTER)
  (DIF :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STGSYL
                   (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE
                    DIF WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGSYL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DIF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF17130 ':INT32) (M-REF17131 ':INT32)
                              (N-REF17132 ':INT32) (LDA-REF17134 ':INT32)
                              (LDB-REF17136 ':INT32) (LDC-REF17138 ':INT32)
                              (LDD-REF17140 ':INT32) (LDE-REF17142 ':INT32)
                              (LDF-REF17144 ':INT32) (SCALE-REF17145 ':FLOAT)
                              (DIF-REF17146 ':FLOAT) (LWORK-REF17148 ':INT32)
                              (INFO-REF17150 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF17130 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17131 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17132 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17134 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17136 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17138 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF17140 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF17142 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF17144 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF17145 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF17146 :FLOAT) DIF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17148 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17150 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17133 A) (B-REF17135 B)
                                            (C-REF17137 C) (D-REF17139 D)
                                            (E-REF17141 E) (F-REF17143 F)
                                            (WORK-REF17147 WORK)
                                            (IWORK-REF17149 IWORK))
      (%%STGSYL TRANS IJOB-REF17130 M-REF17131 N-REF17132 A-REF17133
                LDA-REF17134 B-REF17135 LDB-REF17136 C-REF17137 LDC-REF17138
                D-REF17139 LDD-REF17140 E-REF17141 LDE-REF17142 F-REF17143
                LDF-REF17144 SCALE-REF17145 DIF-REF17146 WORK-REF17147
                LWORK-REF17148 IWORK-REF17149 INFO-REF17150))))

(CFFI:DEFCFUN ("stpcon_" %%STPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPCON (NORM UPLO DIAG N AP RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17154 ':INT32) (RCOND-REF17156 ':FLOAT)
                              (INFO-REF17159 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17154 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17156 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17159 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17155 AP)
                                            (WORK-REF17157 WORK)
                                            (IWORK-REF17158 IWORK))
      (%%STPCON NORM UPLO DIAG N-REF17154 AP-REF17155 RCOND-REF17156
                WORK-REF17157 IWORK-REF17158 INFO-REF17159))))

(CFFI:DEFCFUN ("stplqt_" %%STPLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (MB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPLQT (M N L MB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPLQT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17160 ':INT32) (N-REF17161 ':INT32)
                              (L-REF17162 ':INT32) (MB-REF17163 ':INT32)
                              (LDA-REF17165 ':INT32) (LDB-REF17167 ':INT32)
                              (LDT-REF17169 ':INT32) (INFO-REF17171 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17160 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17161 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17162 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF17163 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17165 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17167 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17169 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17171 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17164 A) (B-REF17166 B)
                                            (T-REF17168 T) (WORK-REF17170 WORK))
      (%%STPLQT M-REF17160 N-REF17161 L-REF17162 MB-REF17163 A-REF17164
                LDA-REF17165 B-REF17166 LDB-REF17167 T-REF17168 LDT-REF17169
                WORK-REF17170 INFO-REF17171))))

(CFFI:DEFCFUN ("stplqt2_" %%STPLQT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPLQT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPLQT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17172 ':INT32) (N-REF17173 ':INT32)
                              (L-REF17174 ':INT32) (LDA-REF17176 ':INT32)
                              (LDB-REF17178 ':INT32) (LDT-REF17180 ':INT32)
                              (INFO-REF17181 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17172 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17173 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17174 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17176 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17178 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17180 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17181 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17175 A) (B-REF17177 B)
                                            (T-REF17179 T))
      (%%STPLQT2 M-REF17172 N-REF17173 L-REF17174 A-REF17175 LDA-REF17176
                 B-REF17177 LDB-REF17178 T-REF17179 LDT-REF17180
                 INFO-REF17181))))

(CFFI:DEFCFUN ("stpmlqt_" %%STPMLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (MB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPMLQT
                   (SIDE TRANS M N K L MB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPMLQT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17184 ':INT32) (N-REF17185 ':INT32)
                              (K-REF17186 ':INT32) (L-REF17187 ':INT32)
                              (MB-REF17188 ':INT32) (LDV-REF17190 ':INT32)
                              (LDT-REF17192 ':INT32) (LDA-REF17194 ':INT32)
                              (LDB-REF17196 ':INT32) (INFO-REF17198 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17184 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17185 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17186 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17187 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF17188 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17190 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17192 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17194 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17196 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17198 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF17189 V) (T-REF17191 T)
                                            (A-REF17193 A) (B-REF17195 B)
                                            (WORK-REF17197 WORK))
      (%%STPMLQT SIDE TRANS M-REF17184 N-REF17185 K-REF17186 L-REF17187
                 MB-REF17188 V-REF17189 LDV-REF17190 T-REF17191 LDT-REF17192
                 A-REF17193 LDA-REF17194 B-REF17195 LDB-REF17196 WORK-REF17197
                 INFO-REF17198))))

(CFFI:DEFCFUN ("stpmqrt_" %%STPMQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (NB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPMQRT
                   (SIDE TRANS M N K L NB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPMQRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17201 ':INT32) (N-REF17202 ':INT32)
                              (K-REF17203 ':INT32) (L-REF17204 ':INT32)
                              (NB-REF17205 ':INT32) (LDV-REF17207 ':INT32)
                              (LDT-REF17209 ':INT32) (LDA-REF17211 ':INT32)
                              (LDB-REF17213 ':INT32) (INFO-REF17215 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17201 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17202 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17203 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17204 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF17205 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17207 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17209 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17211 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17213 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17215 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF17206 V) (T-REF17208 T)
                                            (A-REF17210 A) (B-REF17212 B)
                                            (WORK-REF17214 WORK))
      (%%STPMQRT SIDE TRANS M-REF17201 N-REF17202 K-REF17203 L-REF17204
                 NB-REF17205 V-REF17206 LDV-REF17207 T-REF17208 LDT-REF17209
                 A-REF17210 LDA-REF17211 B-REF17212 LDB-REF17213 WORK-REF17214
                 INFO-REF17215))))

(CFFI:DEFCFUN ("stpqrt_" %%STPQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPQRT (M N L NB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPQRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17216 ':INT32) (N-REF17217 ':INT32)
                              (L-REF17218 ':INT32) (NB-REF17219 ':INT32)
                              (LDA-REF17221 ':INT32) (LDB-REF17223 ':INT32)
                              (LDT-REF17225 ':INT32) (INFO-REF17227 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17216 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17217 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17218 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF17219 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17221 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17223 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17225 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17227 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17220 A) (B-REF17222 B)
                                            (T-REF17224 T) (WORK-REF17226 WORK))
      (%%STPQRT M-REF17216 N-REF17217 L-REF17218 NB-REF17219 A-REF17220
                LDA-REF17221 B-REF17222 LDB-REF17223 T-REF17224 LDT-REF17225
                WORK-REF17226 INFO-REF17227))))

(CFFI:DEFCFUN ("stpqrt2_" %%STPQRT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPQRT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPQRT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17228 ':INT32) (N-REF17229 ':INT32)
                              (L-REF17230 ':INT32) (LDA-REF17232 ':INT32)
                              (LDB-REF17234 ':INT32) (LDT-REF17236 ':INT32)
                              (INFO-REF17237 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17228 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17229 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17230 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17232 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17234 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17236 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17237 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17231 A) (B-REF17233 B)
                                            (T-REF17235 T))
      (%%STPQRT2 M-REF17228 N-REF17229 L-REF17230 A-REF17231 LDA-REF17232
                 B-REF17233 LDB-REF17234 T-REF17235 LDT-REF17236
                 INFO-REF17237))))

(CFFI:DEFCFUN ("stprfb_" %%STPRFB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %STPRFB
                   (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT A LDA B LDB
                    WORK LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPRFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17242 ':INT32) (N-REF17243 ':INT32)
                              (K-REF17244 ':INT32) (L-REF17245 ':INT32)
                              (LDV-REF17247 ':INT32) (LDT-REF17249 ':INT32)
                              (LDA-REF17251 ':INT32) (LDB-REF17253 ':INT32)
                              (LDWORK-REF17255 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17242 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17243 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17244 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17245 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17247 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17249 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17251 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17253 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF17255 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF17246 V) (T-REF17248 T)
                                            (A-REF17250 A) (B-REF17252 B)
                                            (WORK-REF17254 WORK))
      (%%STPRFB SIDE TRANS DIRECT STOREV M-REF17242 N-REF17243 K-REF17244
                L-REF17245 V-REF17246 LDV-REF17247 T-REF17248 LDT-REF17249
                A-REF17250 LDA-REF17251 B-REF17252 LDB-REF17253 WORK-REF17254
                LDWORK-REF17255))))

(CFFI:DEFCFUN ("stprfs_" %%STPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPRFS
                   (UPLO TRANS DIAG N NRHS AP B LDB X LDX FERR BERR WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17259 ':INT32) (NRHS-REF17260 ':INT32)
                              (LDB-REF17263 ':INT32) (LDX-REF17265 ':INT32)
                              (INFO-REF17270 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17259 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17260 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17263 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17265 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17270 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17261 AP) (B-REF17262 B)
                                            (X-REF17264 X) (FERR-REF17266 FERR)
                                            (BERR-REF17267 BERR)
                                            (WORK-REF17268 WORK)
                                            (IWORK-REF17269 IWORK))
      (%%STPRFS UPLO TRANS DIAG N-REF17259 NRHS-REF17260 AP-REF17261 B-REF17262
                LDB-REF17263 X-REF17264 LDX-REF17265 FERR-REF17266
                BERR-REF17267 WORK-REF17268 IWORK-REF17269 INFO-REF17270))))

(CFFI:DEFCFUN ("stptri_" %%STPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPTRI (UPLO DIAG N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17273 ':INT32) (INFO-REF17275 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17273 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17275 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17274 AP))
      (%%STPTRI UPLO DIAG N-REF17273 AP-REF17274 INFO-REF17275))))

(CFFI:DEFCFUN ("stptrs_" %%STPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPTRS (UPLO TRANS DIAG N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17279 ':INT32) (NRHS-REF17280 ':INT32)
                              (LDB-REF17283 ':INT32) (INFO-REF17284 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17279 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17280 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17283 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17284 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17281 AP) (B-REF17282 B))
      (%%STPTRS UPLO TRANS DIAG N-REF17279 NRHS-REF17280 AP-REF17281 B-REF17282
                LDB-REF17283 INFO-REF17284))))

(CFFI:DEFCFUN ("stpttf_" %%STPTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (ARF :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPTTF (TRANSR UPLO N AP ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPTTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ARF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17287 ':INT32) (INFO-REF17290 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17287 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17290 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17288 AP) (ARF-REF17289 ARF))
      (%%STPTTF TRANSR UPLO N-REF17287 AP-REF17288 ARF-REF17289
                INFO-REF17290))))

(CFFI:DEFCFUN ("stpttr_" %%STPTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STPTTR (UPLO N AP A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPTTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17292 ':INT32) (LDA-REF17295 ':INT32)
                              (INFO-REF17296 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17292 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17295 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17296 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17293 AP) (A-REF17294 A))
      (%%STPTTR UPLO N-REF17292 AP-REF17293 A-REF17294 LDA-REF17295
                INFO-REF17296))))

(CFFI:DEFCFUN ("strcon_" %%STRCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRCON (NORM UPLO DIAG N A LDA RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17300 ':INT32) (LDA-REF17302 ':INT32)
                              (RCOND-REF17303 ':FLOAT) (INFO-REF17306 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17300 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17302 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17303 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17306 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17301 A) (WORK-REF17304 WORK)
                                            (IWORK-REF17305 IWORK))
      (%%STRCON NORM UPLO DIAG N-REF17300 A-REF17301 LDA-REF17302
                RCOND-REF17303 WORK-REF17304 IWORK-REF17305 INFO-REF17306))))

(CFFI:DEFCFUN ("strevc_" %%STREVC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STREVC
                   (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STREVC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17310 ':INT32) (LDT-REF17312 ':INT32)
                              (LDVL-REF17314 ':INT32) (LDVR-REF17316 ':INT32)
                              (MM-REF17317 ':INT32) (M-REF17318 ':INT32)
                              (INFO-REF17320 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17310 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17312 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17314 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17316 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17317 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17318 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17320 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17309 SELECT)
                                            (T-REF17311 T) (VL-REF17313 VL)
                                            (VR-REF17315 VR)
                                            (WORK-REF17319 WORK))
      (%%STREVC SIDE HOWMNY SELECT-REF17309 N-REF17310 T-REF17311 LDT-REF17312
                VL-REF17313 LDVL-REF17314 VR-REF17315 LDVR-REF17316 MM-REF17317
                M-REF17318 WORK-REF17319 INFO-REF17320))))

(CFFI:DEFCFUN ("strevc3_" %%STREVC3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STREVC3
                   (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STREVC3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17324 ':INT32) (LDT-REF17326 ':INT32)
                              (LDVL-REF17328 ':INT32) (LDVR-REF17330 ':INT32)
                              (MM-REF17331 ':INT32) (M-REF17332 ':INT32)
                              (LWORK-REF17334 ':INT32) (INFO-REF17335 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17324 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17326 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17328 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17330 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17331 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17332 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17334 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17335 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17323 SELECT)
                                            (T-REF17325 T) (VL-REF17327 VL)
                                            (VR-REF17329 VR)
                                            (WORK-REF17333 WORK))
      (%%STREVC3 SIDE HOWMNY SELECT-REF17323 N-REF17324 T-REF17325 LDT-REF17326
                 VL-REF17327 LDVL-REF17328 VR-REF17329 LDVR-REF17330
                 MM-REF17331 M-REF17332 WORK-REF17333 LWORK-REF17334
                 INFO-REF17335))))

(CFFI:DEFCFUN ("strexc_" %%STREXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (IFST :POINTER)
  (ILST :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STREXC (COMPQ N T LDT Q LDQ IFST ILST WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STREXC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17337 ':INT32) (LDT-REF17339 ':INT32)
                              (LDQ-REF17341 ':INT32) (IFST-REF17342 ':INT32)
                              (ILST-REF17343 ':INT32) (INFO-REF17345 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17337 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17339 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17341 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF17342 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF17343 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17345 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF17338 T) (Q-REF17340 Q)
                                            (WORK-REF17344 WORK))
      (%%STREXC COMPQ N-REF17337 T-REF17338 LDT-REF17339 Q-REF17340
                LDQ-REF17341 IFST-REF17342 ILST-REF17343 WORK-REF17344
                INFO-REF17345))))

(CFFI:DEFCFUN ("strrfs_" %%STRRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRRFS
                   (UPLO TRANS DIAG N NRHS A LDA B LDB X LDX FERR BERR WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17349 ':INT32) (NRHS-REF17350 ':INT32)
                              (LDA-REF17352 ':INT32) (LDB-REF17354 ':INT32)
                              (LDX-REF17356 ':INT32) (INFO-REF17361 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17349 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17350 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17352 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17354 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17356 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17361 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17351 A) (B-REF17353 B)
                                            (X-REF17355 X) (FERR-REF17357 FERR)
                                            (BERR-REF17358 BERR)
                                            (WORK-REF17359 WORK)
                                            (IWORK-REF17360 IWORK))
      (%%STRRFS UPLO TRANS DIAG N-REF17349 NRHS-REF17350 A-REF17351
                LDA-REF17352 B-REF17353 LDB-REF17354 X-REF17355 LDX-REF17356
                FERR-REF17357 BERR-REF17358 WORK-REF17359 IWORK-REF17360
                INFO-REF17361))))

(CFFI:DEFCFUN ("strsen_" %%STRSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPQ :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (M :POINTER)
  (S :POINTER)
  (SEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRSEN
                   (JOB COMPQ SELECT N T LDT Q LDQ WR WI M S SEP WORK LWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRSEN)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17365 ':INT32) (LDT-REF17367 ':INT32)
                              (LDQ-REF17369 ':INT32) (M-REF17372 ':INT32)
                              (S-REF17373 ':FLOAT) (SEP-REF17374 ':FLOAT)
                              (LWORK-REF17376 ':INT32)
                              (LIWORK-REF17378 ':INT32) (INFO-REF17379 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17365 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17367 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17369 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17372 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF17373 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF17374 :FLOAT) SEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17376 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF17378 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17379 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17364 SELECT)
                                            (T-REF17366 T) (Q-REF17368 Q)
                                            (WR-REF17370 WR) (WI-REF17371 WI)
                                            (WORK-REF17375 WORK)
                                            (IWORK-REF17377 IWORK))
      (%%STRSEN JOB COMPQ SELECT-REF17364 N-REF17365 T-REF17366 LDT-REF17367
                Q-REF17368 LDQ-REF17369 WR-REF17370 WI-REF17371 M-REF17372
                S-REF17373 SEP-REF17374 WORK-REF17375 LWORK-REF17376
                IWORK-REF17377 LIWORK-REF17378 INFO-REF17379))))

(CFFI:DEFCFUN ("strsna_" %%STRSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (S :POINTER)
  (SEP :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRSNA
                   (JOB HOWMNY SELECT N T LDT VL LDVL VR LDVR S SEP MM M WORK
                    LDWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRSNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17383 ':INT32) (LDT-REF17385 ':INT32)
                              (LDVL-REF17387 ':INT32) (LDVR-REF17389 ':INT32)
                              (MM-REF17392 ':INT32) (M-REF17393 ':INT32)
                              (LDWORK-REF17395 ':INT32) (INFO-REF17397 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17383 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17385 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17387 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17389 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17392 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17393 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF17395 :INT32) LDWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17397 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17382 SELECT)
                                            (T-REF17384 T) (VL-REF17386 VL)
                                            (VR-REF17388 VR) (S-REF17390 S)
                                            (SEP-REF17391 SEP)
                                            (WORK-REF17394 WORK)
                                            (IWORK-REF17396 IWORK))
      (%%STRSNA JOB HOWMNY SELECT-REF17382 N-REF17383 T-REF17384 LDT-REF17385
                VL-REF17386 LDVL-REF17387 VR-REF17388 LDVR-REF17389 S-REF17390
                SEP-REF17391 MM-REF17392 M-REF17393 WORK-REF17394
                LDWORK-REF17395 IWORK-REF17396 INFO-REF17397))))

(CFFI:DEFCFUN ("strsyl_" %%STRSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANA :STRING)
  (TRANB :STRING)
  (ISGN :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (SCALE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRSYL (TRANA TRANB ISGN M N A LDA B LDB C LDC SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRSYL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF17400 ':INT32) (M-REF17401 ':INT32)
                              (N-REF17402 ':INT32) (LDA-REF17404 ':INT32)
                              (LDB-REF17406 ':INT32) (LDC-REF17408 ':INT32)
                              (SCALE-REF17409 ':FLOAT) (INFO-REF17410 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF17400 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17401 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17402 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17404 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17406 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17408 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF17409 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17410 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17403 A) (B-REF17405 B)
                                            (C-REF17407 C))
      (%%STRSYL TRANA TRANB ISGN-REF17400 M-REF17401 N-REF17402 A-REF17403
                LDA-REF17404 B-REF17405 LDB-REF17406 C-REF17407 LDC-REF17408
                SCALE-REF17409 INFO-REF17410))))

(CFFI:DEFCFUN ("strti2_" %%STRTI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRTI2 (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRTI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17413 ':INT32) (LDA-REF17415 ':INT32)
                              (INFO-REF17416 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17413 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17415 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17416 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17414 A))
      (%%STRTI2 UPLO DIAG N-REF17413 A-REF17414 LDA-REF17415 INFO-REF17416))))

(CFFI:DEFCFUN ("strtri_" %%STRTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRTRI (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17419 ':INT32) (LDA-REF17421 ':INT32)
                              (INFO-REF17422 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17419 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17421 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17422 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17420 A))
      (%%STRTRI UPLO DIAG N-REF17419 A-REF17420 LDA-REF17421 INFO-REF17422))))

(CFFI:DEFCFUN ("strtrs_" %%STRTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRTRS (UPLO TRANS DIAG N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17426 ':INT32) (NRHS-REF17427 ':INT32)
                              (LDA-REF17429 ':INT32) (LDB-REF17431 ':INT32)
                              (INFO-REF17432 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17426 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17427 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17429 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17431 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17432 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17428 A) (B-REF17430 B))
      (%%STRTRS UPLO TRANS DIAG N-REF17426 NRHS-REF17427 A-REF17428
                LDA-REF17429 B-REF17430 LDB-REF17431 INFO-REF17432))))

(CFFI:DEFCFUN ("strttf_" %%STRTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ARF :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRTTF (TRANSR UPLO N A LDA ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRTTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ARF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17435 ':INT32) (LDA-REF17437 ':INT32)
                              (INFO-REF17439 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17435 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17437 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17439 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17436 A) (ARF-REF17438 ARF))
      (%%STRTTF TRANSR UPLO N-REF17435 A-REF17436 LDA-REF17437 ARF-REF17438
                INFO-REF17439))))

(CFFI:DEFCFUN ("strttp_" %%STRTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STRTTP (UPLO N A LDA AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRTTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17441 ':INT32) (LDA-REF17443 ':INT32)
                              (INFO-REF17445 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17441 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17443 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17445 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17442 A) (AP-REF17444 AP))
      (%%STRTTP UPLO N-REF17441 A-REF17442 LDA-REF17443 AP-REF17444
                INFO-REF17445))))

(CFFI:DEFCFUN ("stzrzf_" %%STZRZF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %STZRZF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STZRZF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17446 ':INT32) (N-REF17447 ':INT32)
                              (LDA-REF17449 ':INT32) (LWORK-REF17452 ':INT32)
                              (INFO-REF17453 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17446 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17447 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17449 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17452 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17453 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17448 A) (TAU-REF17450 TAU)
                                            (WORK-REF17451 WORK))
      (%%STZRZF M-REF17446 N-REF17447 A-REF17448 LDA-REF17449 TAU-REF17450
                WORK-REF17451 LWORK-REF17452 INFO-REF17453))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%SLASDA %SLASDA %%SLASDQ %SLASDQ %%SLASDT %SLASDT
  %%SLASET %SLASET %%SLASQ1 %SLASQ1 %%SLASQ2 %SLASQ2 %%SLASQ3 %SLASQ3 %%SLASQ4
  %SLASQ4 %%SLASQ5 %SLASQ5 %%SLASQ6 %SLASQ6 %%SLASR %SLASR %%SLASRT %SLASRT
  %%SLASSQ %SLASSQ %%SLASV2 %SLASV2 %%SLASWLQ %SLASWLQ %%SLASWP %SLASWP
  %%SLASY2 %SLASY2 %%SLASYF %SLASYF %%SLASYF_AA %SLASYF_AA %%SLASYF_RK
  %SLASYF_RK %%SLASYF_ROOK %SLASYF_ROOK %%SLATBS %SLATBS %%SLATDF %SLATDF
  %%SLATPS %SLATPS %%SLATRD %SLATRD %%SLATRS %SLATRS %%SLATRZ %SLATRZ %%SLATSQR
  %SLATSQR %%SLAUU2 %SLAUU2 %%SLAUUM %SLAUUM %%SOPGTR %SOPGTR %%SOPMTR %SOPMTR
  %%SORBDB %SORBDB %%SORBDB1 %SORBDB1 %%SORBDB2 %SORBDB2 %%SORBDB3 %SORBDB3
  %%SORBDB4 %SORBDB4 %%SORBDB5 %SORBDB5 %%SORBDB6 %SORBDB6 %%SORCSD %SORCSD
  %%SORCSD2BY1 %SORCSD2BY1 %%SORG2L %SORG2L %%SORG2R %SORG2R %%SORGBR %SORGBR
  %%SORGHR %SORGHR %%SORGL2 %SORGL2 %%SORGLQ %SORGLQ %%SORGQL %SORGQL %%SORGQR
  %SORGQR %%SORGR2 %SORGR2 %%SORGRQ %SORGRQ %%SORGTR %SORGTR %%SORM22 %SORM22
  %%SORM2L %SORM2L %%SORM2R %SORM2R %%SORMBR %SORMBR %%SORMHR %SORMHR %%SORML2
  %SORML2 %%SORMLQ %SORMLQ %%SORMQL %SORMQL %%SORMQR %SORMQR %%SORMR2 %SORMR2
  %%SORMR3 %SORMR3 %%SORMRQ %SORMRQ %%SORMRZ %SORMRZ %%SORMTR %SORMTR %%SPBCON
  %SPBCON %%SPBEQU %SPBEQU %%SPBRFS %SPBRFS %%SPBSTF %SPBSTF %%SPBSV %SPBSV
  %%SPBSVX %SPBSVX %%SPBTF2 %SPBTF2 %%SPBTRF %SPBTRF %%SPBTRS %SPBTRS %%SPFTRF
  %SPFTRF %%SPFTRI %SPFTRI %%SPFTRS %SPFTRS %%SPOCON %SPOCON %%SPOEQU %SPOEQU
  %%SPOEQUB %SPOEQUB %%SPORFS %SPORFS %%SPORFSX %SPORFSX %%SPOSV %SPOSV
  %%SPOSVX %SPOSVX %%SPOSVXX %SPOSVXX %%SPOTF2 %SPOTF2 %%SPOTRF %SPOTRF
  %%SPOTRF2 %SPOTRF2 %%SPOTRI %SPOTRI %%SPOTRS %SPOTRS %%SPPCON %SPPCON
  %%SPPEQU %SPPEQU %%SPPRFS %SPPRFS %%SPPSV %SPPSV %%SPPSVX %SPPSVX %%SPPTRF
  %SPPTRF %%SPPTRI %SPPTRI %%SPPTRS %SPPTRS %%SPSTF2 %SPSTF2 %%SPSTRF %SPSTRF
  %%SPTCON %SPTCON %%SPTEQR %SPTEQR %%SPTRFS %SPTRFS %%SPTSV %SPTSV %%SPTSVX
  %SPTSVX %%SPTTRF %SPTTRF %%SPTTRS %SPTTRS %%SPTTS2 %SPTTS2 %%SRSCL %SRSCL
  %%SSB2ST_KERNELS %SSB2ST_KERNELS %%SSBEV %SSBEV %%SSBEV_2STAGE %SSBEV_2STAGE
  %%SSBEVD %SSBEVD %%SSBEVD_2STAGE %SSBEVD_2STAGE %%SSBEVX %SSBEVX
  %%SSBEVX_2STAGE %SSBEVX_2STAGE %%SSBGST %SSBGST %%SSBGV %SSBGV %%SSBGVD
  %SSBGVD %%SSBGVX %SSBGVX %%SSBTRD %SSBTRD %%SSFRK %SSFRK %%SSPCON %SSPCON
  %%SSPEV %SSPEV %%SSPEVD %SSPEVD %%SSPEVX %SSPEVX %%SSPGST %SSPGST %%SSPGV
  %SSPGV %%SSPGVD %SSPGVD %%SSPGVX %SSPGVX %%SSPRFS %SSPRFS %%SSPSV %SSPSV
  %%SSPSVX %SSPSVX %%SSPTRD %SSPTRD %%SSPTRF %SSPTRF %%SSPTRI %SSPTRI %%SSPTRS
  %SSPTRS %%SSTEBZ %SSTEBZ %%SSTEDC %SSTEDC %%SSTEGR %SSTEGR %%SSTEIN %SSTEIN
  %%SSTEMR %SSTEMR %%SSTEQR %SSTEQR %%SSTERF %SSTERF %%SSTEV %SSTEV %%SSTEVD
  %SSTEVD %%SSTEVR %SSTEVR %%SSTEVX %SSTEVX %%SSYCON %SSYCON %%SSYCON_3
  %SSYCON_3 %%SSYCON_ROOK %SSYCON_ROOK %%SSYCONV %SSYCONV %%SSYCONVF %SSYCONVF
  %%SSYCONVF_ROOK %SSYCONVF_ROOK %%SSYEQUB %SSYEQUB %%SSYEV %SSYEV
  %%SSYEV_2STAGE %SSYEV_2STAGE %%SSYEVD %SSYEVD %%SSYEVD_2STAGE %SSYEVD_2STAGE
  %%SSYEVR %SSYEVR %%SSYEVR_2STAGE %SSYEVR_2STAGE %%SSYEVX %SSYEVX
  %%SSYEVX_2STAGE %SSYEVX_2STAGE %%SSYGS2 %SSYGS2 %%SSYGST %SSYGST %%SSYGV
  %SSYGV %%SSYGV_2STAGE %SSYGV_2STAGE %%SSYGVD %SSYGVD %%SSYGVX %SSYGVX
  %%SSYRFS %SSYRFS %%SSYRFSX %SSYRFSX %%SSYSV %SSYSV %%SSYSV_AA %SSYSV_AA
  %%SSYSV_AA_2STAGE %SSYSV_AA_2STAGE %%SSYSV_RK %SSYSV_RK %%SSYSV_ROOK
  %SSYSV_ROOK %%SSYSVX %SSYSVX %%SSYSVXX %SSYSVXX %%SSYSWAPR %SSYSWAPR %%SSYTD2
  %SSYTD2 %%SSYTF2 %SSYTF2 %%SSYTF2_RK %SSYTF2_RK %%SSYTF2_ROOK %SSYTF2_ROOK
  %%SSYTRD %SSYTRD %%SSYTRD_2STAGE %SSYTRD_2STAGE %%SSYTRD_SY2SB %SSYTRD_SY2SB
  %%SSYTRF %SSYTRF %%SSYTRF_AA %SSYTRF_AA %%SSYTRF_AA_2STAGE %SSYTRF_AA_2STAGE
  %%SSYTRF_RK %SSYTRF_RK %%SSYTRF_ROOK %SSYTRF_ROOK %%SSYTRI %SSYTRI %%SSYTRI2
  %SSYTRI2 %%SSYTRI2X %SSYTRI2X %%SSYTRI_3 %SSYTRI_3 %%SSYTRI_3X %SSYTRI_3X
  %%SSYTRI_ROOK %SSYTRI_ROOK %%SSYTRS %SSYTRS %%SSYTRS2 %SSYTRS2 %%SSYTRS_3
  %SSYTRS_3 %%SSYTRS_AA %SSYTRS_AA %%SSYTRS_AA_2STAGE %SSYTRS_AA_2STAGE
  %%SSYTRS_ROOK %SSYTRS_ROOK %%STBCON %STBCON %%STBRFS %STBRFS %%STBTRS %STBTRS
  %%STFSM %STFSM %%STFTRI %STFTRI %%STFTTP %STFTTP %%STFTTR %STFTTR %%STGEVC
  %STGEVC %%STGEX2 %STGEX2 %%STGEXC %STGEXC %%STGSEN %STGSEN %%STGSJA %STGSJA
  %%STGSNA %STGSNA %%STGSY2 %STGSY2 %%STGSYL %STGSYL %%STPCON %STPCON %%STPLQT
  %STPLQT %%STPLQT2 %STPLQT2 %%STPMLQT %STPMLQT %%STPMQRT %STPMQRT %%STPQRT
  %STPQRT %%STPQRT2 %STPQRT2 %%STPRFB %STPRFB %%STPRFS %STPRFS %%STPTRI %STPTRI
  %%STPTRS %STPTRS %%STPTTF %STPTTF %%STPTTR %STPTTR %%STRCON %STRCON %%STREVC
  %STREVC %%STREVC3 %STREVC3 %%STREXC %STREXC %%STRRFS %STRRFS %%STRSEN %STRSEN
  %%STRSNA %STRSNA %%STRSYL %STRSYL %%STRTI2 %STRTI2 %%STRTRI %STRTRI %%STRTRS
  %STRTRS %%STRTTF %STRTTF %%STRTTP %STRTTP %%STZRZF %STZRZF))

(COMMON-LISP:SETF (COMMON-LISP:GETF
                   (COMMON-LISP:SYMBOL-PLIST
                    'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
                   ':MAGICL)
                    '(("SLASDA" "slasda_" %%SLASDA %SLASDA)
                      ("SLASDQ" "slasdq_" %%SLASDQ %SLASDQ)
                      ("SLASDT" "slasdt_" %%SLASDT %SLASDT)
                      ("SLASET" "slaset_" %%SLASET %SLASET)
                      ("SLASQ1" "slasq1_" %%SLASQ1 %SLASQ1)
                      ("SLASQ2" "slasq2_" %%SLASQ2 %SLASQ2)
                      ("SLASQ3" "slasq3_" %%SLASQ3 %SLASQ3)
                      ("SLASQ4" "slasq4_" %%SLASQ4 %SLASQ4)
                      ("SLASQ5" "slasq5_" %%SLASQ5 %SLASQ5)
                      ("SLASQ6" "slasq6_" %%SLASQ6 %SLASQ6)
                      ("SLASR" "slasr_" %%SLASR %SLASR)
                      ("SLASRT" "slasrt_" %%SLASRT %SLASRT)
                      ("SLASSQ" "slassq_" %%SLASSQ %SLASSQ)
                      ("SLASV2" "slasv2_" %%SLASV2 %SLASV2)
                      ("SLASWLQ" "slaswlq_" %%SLASWLQ %SLASWLQ)
                      ("SLASWP" "slaswp_" %%SLASWP %SLASWP)
                      ("SLASY2" "slasy2_" %%SLASY2 %SLASY2)
                      ("SLASYF" "slasyf_" %%SLASYF %SLASYF)
                      ("SLASYF_AA" "slasyf_aa_" %%SLASYF_AA %SLASYF_AA)
                      ("SLASYF_RK" "slasyf_rk_" %%SLASYF_RK %SLASYF_RK)
                      ("SLASYF_ROOK" "slasyf_rook_" %%SLASYF_ROOK %SLASYF_ROOK)
                      ("SLATBS" "slatbs_" %%SLATBS %SLATBS)
                      ("SLATDF" "slatdf_" %%SLATDF %SLATDF)
                      ("SLATPS" "slatps_" %%SLATPS %SLATPS)
                      ("SLATRD" "slatrd_" %%SLATRD %SLATRD)
                      ("SLATRS" "slatrs_" %%SLATRS %SLATRS)
                      ("SLATRZ" "slatrz_" %%SLATRZ %SLATRZ)
                      ("SLATSQR" "slatsqr_" %%SLATSQR %SLATSQR)
                      ("SLAUU2" "slauu2_" %%SLAUU2 %SLAUU2)
                      ("SLAUUM" "slauum_" %%SLAUUM %SLAUUM)
                      ("SOPGTR" "sopgtr_" %%SOPGTR %SOPGTR)
                      ("SOPMTR" "sopmtr_" %%SOPMTR %SOPMTR)
                      ("SORBDB" "sorbdb_" %%SORBDB %SORBDB)
                      ("SORBDB1" "sorbdb1_" %%SORBDB1 %SORBDB1)
                      ("SORBDB2" "sorbdb2_" %%SORBDB2 %SORBDB2)
                      ("SORBDB3" "sorbdb3_" %%SORBDB3 %SORBDB3)
                      ("SORBDB4" "sorbdb4_" %%SORBDB4 %SORBDB4)
                      ("SORBDB5" "sorbdb5_" %%SORBDB5 %SORBDB5)
                      ("SORBDB6" "sorbdb6_" %%SORBDB6 %SORBDB6)
                      ("SORCSD" "sorcsd_" %%SORCSD %SORCSD)
                      ("SORCSD2BY1" "sorcsd2by1_" %%SORCSD2BY1 %SORCSD2BY1)
                      ("SORG2L" "sorg2l_" %%SORG2L %SORG2L)
                      ("SORG2R" "sorg2r_" %%SORG2R %SORG2R)
                      ("SORGBR" "sorgbr_" %%SORGBR %SORGBR)
                      ("SORGHR" "sorghr_" %%SORGHR %SORGHR)
                      ("SORGL2" "sorgl2_" %%SORGL2 %SORGL2)
                      ("SORGLQ" "sorglq_" %%SORGLQ %SORGLQ)
                      ("SORGQL" "sorgql_" %%SORGQL %SORGQL)
                      ("SORGQR" "sorgqr_" %%SORGQR %SORGQR)
                      ("SORGR2" "sorgr2_" %%SORGR2 %SORGR2)
                      ("SORGRQ" "sorgrq_" %%SORGRQ %SORGRQ)
                      ("SORGTR" "sorgtr_" %%SORGTR %SORGTR)
                      ("SORM22" "sorm22_" %%SORM22 %SORM22)
                      ("SORM2L" "sorm2l_" %%SORM2L %SORM2L)
                      ("SORM2R" "sorm2r_" %%SORM2R %SORM2R)
                      ("SORMBR" "sormbr_" %%SORMBR %SORMBR)
                      ("SORMHR" "sormhr_" %%SORMHR %SORMHR)
                      ("SORML2" "sorml2_" %%SORML2 %SORML2)
                      ("SORMLQ" "sormlq_" %%SORMLQ %SORMLQ)
                      ("SORMQL" "sormql_" %%SORMQL %SORMQL)
                      ("SORMQR" "sormqr_" %%SORMQR %SORMQR)
                      ("SORMR2" "sormr2_" %%SORMR2 %SORMR2)
                      ("SORMR3" "sormr3_" %%SORMR3 %SORMR3)
                      ("SORMRQ" "sormrq_" %%SORMRQ %SORMRQ)
                      ("SORMRZ" "sormrz_" %%SORMRZ %SORMRZ)
                      ("SORMTR" "sormtr_" %%SORMTR %SORMTR)
                      ("SPBCON" "spbcon_" %%SPBCON %SPBCON)
                      ("SPBEQU" "spbequ_" %%SPBEQU %SPBEQU)
                      ("SPBRFS" "spbrfs_" %%SPBRFS %SPBRFS)
                      ("SPBSTF" "spbstf_" %%SPBSTF %SPBSTF)
                      ("SPBSV" "spbsv_" %%SPBSV %SPBSV)
                      ("SPBSVX" "spbsvx_" %%SPBSVX %SPBSVX)
                      ("SPBTF2" "spbtf2_" %%SPBTF2 %SPBTF2)
                      ("SPBTRF" "spbtrf_" %%SPBTRF %SPBTRF)
                      ("SPBTRS" "spbtrs_" %%SPBTRS %SPBTRS)
                      ("SPFTRF" "spftrf_" %%SPFTRF %SPFTRF)
                      ("SPFTRI" "spftri_" %%SPFTRI %SPFTRI)
                      ("SPFTRS" "spftrs_" %%SPFTRS %SPFTRS)
                      ("SPOCON" "spocon_" %%SPOCON %SPOCON)
                      ("SPOEQU" "spoequ_" %%SPOEQU %SPOEQU)
                      ("SPOEQUB" "spoequb_" %%SPOEQUB %SPOEQUB)
                      ("SPORFS" "sporfs_" %%SPORFS %SPORFS)
                      ("SPORFSX" "sporfsx_" %%SPORFSX %SPORFSX)
                      ("SPOSV" "sposv_" %%SPOSV %SPOSV)
                      ("SPOSVX" "sposvx_" %%SPOSVX %SPOSVX)
                      ("SPOSVXX" "sposvxx_" %%SPOSVXX %SPOSVXX)
                      ("SPOTF2" "spotf2_" %%SPOTF2 %SPOTF2)
                      ("SPOTRF" "spotrf_" %%SPOTRF %SPOTRF)
                      ("SPOTRF2" "spotrf2_" %%SPOTRF2 %SPOTRF2)
                      ("SPOTRI" "spotri_" %%SPOTRI %SPOTRI)
                      ("SPOTRS" "spotrs_" %%SPOTRS %SPOTRS)
                      ("SPPCON" "sppcon_" %%SPPCON %SPPCON)
                      ("SPPEQU" "sppequ_" %%SPPEQU %SPPEQU)
                      ("SPPRFS" "spprfs_" %%SPPRFS %SPPRFS)
                      ("SPPSV" "sppsv_" %%SPPSV %SPPSV)
                      ("SPPSVX" "sppsvx_" %%SPPSVX %SPPSVX)
                      ("SPPTRF" "spptrf_" %%SPPTRF %SPPTRF)
                      ("SPPTRI" "spptri_" %%SPPTRI %SPPTRI)
                      ("SPPTRS" "spptrs_" %%SPPTRS %SPPTRS)
                      ("SPSTF2" "spstf2_" %%SPSTF2 %SPSTF2)
                      ("SPSTRF" "spstrf_" %%SPSTRF %SPSTRF)
                      ("SPTCON" "sptcon_" %%SPTCON %SPTCON)
                      ("SPTEQR" "spteqr_" %%SPTEQR %SPTEQR)
                      ("SPTRFS" "sptrfs_" %%SPTRFS %SPTRFS)
                      ("SPTSV" "sptsv_" %%SPTSV %SPTSV)
                      ("SPTSVX" "sptsvx_" %%SPTSVX %SPTSVX)
                      ("SPTTRF" "spttrf_" %%SPTTRF %SPTTRF)
                      ("SPTTRS" "spttrs_" %%SPTTRS %SPTTRS)
                      ("SPTTS2" "sptts2_" %%SPTTS2 %SPTTS2)
                      ("SRSCL" "srscl_" %%SRSCL %SRSCL)
                      ("SSB2ST_KERNELS" "ssb2st_kernels_" %%SSB2ST_KERNELS
                       %SSB2ST_KERNELS)
                      ("SSBEV" "ssbev_" %%SSBEV %SSBEV)
                      ("SSBEV_2STAGE" "ssbev_2stage_" %%SSBEV_2STAGE
                       %SSBEV_2STAGE)
                      ("SSBEVD" "ssbevd_" %%SSBEVD %SSBEVD)
                      ("SSBEVD_2STAGE" "ssbevd_2stage_" %%SSBEVD_2STAGE
                       %SSBEVD_2STAGE)
                      ("SSBEVX" "ssbevx_" %%SSBEVX %SSBEVX)
                      ("SSBEVX_2STAGE" "ssbevx_2stage_" %%SSBEVX_2STAGE
                       %SSBEVX_2STAGE)
                      ("SSBGST" "ssbgst_" %%SSBGST %SSBGST)
                      ("SSBGV" "ssbgv_" %%SSBGV %SSBGV)
                      ("SSBGVD" "ssbgvd_" %%SSBGVD %SSBGVD)
                      ("SSBGVX" "ssbgvx_" %%SSBGVX %SSBGVX)
                      ("SSBTRD" "ssbtrd_" %%SSBTRD %SSBTRD)
                      ("SSFRK" "ssfrk_" %%SSFRK %SSFRK)
                      ("SSPCON" "sspcon_" %%SSPCON %SSPCON)
                      ("SSPEV" "sspev_" %%SSPEV %SSPEV)
                      ("SSPEVD" "sspevd_" %%SSPEVD %SSPEVD)
                      ("SSPEVX" "sspevx_" %%SSPEVX %SSPEVX)
                      ("SSPGST" "sspgst_" %%SSPGST %SSPGST)
                      ("SSPGV" "sspgv_" %%SSPGV %SSPGV)
                      ("SSPGVD" "sspgvd_" %%SSPGVD %SSPGVD)
                      ("SSPGVX" "sspgvx_" %%SSPGVX %SSPGVX)
                      ("SSPRFS" "ssprfs_" %%SSPRFS %SSPRFS)
                      ("SSPSV" "sspsv_" %%SSPSV %SSPSV)
                      ("SSPSVX" "sspsvx_" %%SSPSVX %SSPSVX)
                      ("SSPTRD" "ssptrd_" %%SSPTRD %SSPTRD)
                      ("SSPTRF" "ssptrf_" %%SSPTRF %SSPTRF)
                      ("SSPTRI" "ssptri_" %%SSPTRI %SSPTRI)
                      ("SSPTRS" "ssptrs_" %%SSPTRS %SSPTRS)
                      ("SSTEBZ" "sstebz_" %%SSTEBZ %SSTEBZ)
                      ("SSTEDC" "sstedc_" %%SSTEDC %SSTEDC)
                      ("SSTEGR" "sstegr_" %%SSTEGR %SSTEGR)
                      ("SSTEIN" "sstein_" %%SSTEIN %SSTEIN)
                      ("SSTEMR" "sstemr_" %%SSTEMR %SSTEMR)
                      ("SSTEQR" "ssteqr_" %%SSTEQR %SSTEQR)
                      ("SSTERF" "ssterf_" %%SSTERF %SSTERF)
                      ("SSTEV" "sstev_" %%SSTEV %SSTEV)
                      ("SSTEVD" "sstevd_" %%SSTEVD %SSTEVD)
                      ("SSTEVR" "sstevr_" %%SSTEVR %SSTEVR)
                      ("SSTEVX" "sstevx_" %%SSTEVX %SSTEVX)
                      ("SSYCON" "ssycon_" %%SSYCON %SSYCON)
                      ("SSYCON_3" "ssycon_3_" %%SSYCON_3 %SSYCON_3)
                      ("SSYCON_ROOK" "ssycon_rook_" %%SSYCON_ROOK %SSYCON_ROOK)
                      ("SSYCONV" "ssyconv_" %%SSYCONV %SSYCONV)
                      ("SSYCONVF" "ssyconvf_" %%SSYCONVF %SSYCONVF)
                      ("SSYCONVF_ROOK" "ssyconvf_rook_" %%SSYCONVF_ROOK
                       %SSYCONVF_ROOK)
                      ("SSYEQUB" "ssyequb_" %%SSYEQUB %SSYEQUB)
                      ("SSYEV" "ssyev_" %%SSYEV %SSYEV)
                      ("SSYEV_2STAGE" "ssyev_2stage_" %%SSYEV_2STAGE
                       %SSYEV_2STAGE)
                      ("SSYEVD" "ssyevd_" %%SSYEVD %SSYEVD)
                      ("SSYEVD_2STAGE" "ssyevd_2stage_" %%SSYEVD_2STAGE
                       %SSYEVD_2STAGE)
                      ("SSYEVR" "ssyevr_" %%SSYEVR %SSYEVR)
                      ("SSYEVR_2STAGE" "ssyevr_2stage_" %%SSYEVR_2STAGE
                       %SSYEVR_2STAGE)
                      ("SSYEVX" "ssyevx_" %%SSYEVX %SSYEVX)
                      ("SSYEVX_2STAGE" "ssyevx_2stage_" %%SSYEVX_2STAGE
                       %SSYEVX_2STAGE)
                      ("SSYGS2" "ssygs2_" %%SSYGS2 %SSYGS2)
                      ("SSYGST" "ssygst_" %%SSYGST %SSYGST)
                      ("SSYGV" "ssygv_" %%SSYGV %SSYGV)
                      ("SSYGV_2STAGE" "ssygv_2stage_" %%SSYGV_2STAGE
                       %SSYGV_2STAGE)
                      ("SSYGVD" "ssygvd_" %%SSYGVD %SSYGVD)
                      ("SSYGVX" "ssygvx_" %%SSYGVX %SSYGVX)
                      ("SSYRFS" "ssyrfs_" %%SSYRFS %SSYRFS)
                      ("SSYRFSX" "ssyrfsx_" %%SSYRFSX %SSYRFSX)
                      ("SSYSV" "ssysv_" %%SSYSV %SSYSV)
                      ("SSYSV_AA" "ssysv_aa_" %%SSYSV_AA %SSYSV_AA)
                      ("SSYSV_AA_2STAGE" "ssysv_aa_2stage_" %%SSYSV_AA_2STAGE
                       %SSYSV_AA_2STAGE)
                      ("SSYSV_RK" "ssysv_rk_" %%SSYSV_RK %SSYSV_RK)
                      ("SSYSV_ROOK" "ssysv_rook_" %%SSYSV_ROOK %SSYSV_ROOK)
                      ("SSYSVX" "ssysvx_" %%SSYSVX %SSYSVX)
                      ("SSYSVXX" "ssysvxx_" %%SSYSVXX %SSYSVXX)
                      ("SSYSWAPR" "ssyswapr_" %%SSYSWAPR %SSYSWAPR)
                      ("SSYTD2" "ssytd2_" %%SSYTD2 %SSYTD2)
                      ("SSYTF2" "ssytf2_" %%SSYTF2 %SSYTF2)
                      ("SSYTF2_RK" "ssytf2_rk_" %%SSYTF2_RK %SSYTF2_RK)
                      ("SSYTF2_ROOK" "ssytf2_rook_" %%SSYTF2_ROOK %SSYTF2_ROOK)
                      ("SSYTRD" "ssytrd_" %%SSYTRD %SSYTRD)
                      ("SSYTRD_2STAGE" "ssytrd_2stage_" %%SSYTRD_2STAGE
                       %SSYTRD_2STAGE)
                      ("SSYTRD_SY2SB" "ssytrd_sy2sb_" %%SSYTRD_SY2SB
                       %SSYTRD_SY2SB)
                      ("SSYTRF" "ssytrf_" %%SSYTRF %SSYTRF)
                      ("SSYTRF_AA" "ssytrf_aa_" %%SSYTRF_AA %SSYTRF_AA)
                      ("SSYTRF_AA_2STAGE" "ssytrf_aa_2stage_"
                       %%SSYTRF_AA_2STAGE %SSYTRF_AA_2STAGE)
                      ("SSYTRF_RK" "ssytrf_rk_" %%SSYTRF_RK %SSYTRF_RK)
                      ("SSYTRF_ROOK" "ssytrf_rook_" %%SSYTRF_ROOK %SSYTRF_ROOK)
                      ("SSYTRI" "ssytri_" %%SSYTRI %SSYTRI)
                      ("SSYTRI2" "ssytri2_" %%SSYTRI2 %SSYTRI2)
                      ("SSYTRI2X" "ssytri2x_" %%SSYTRI2X %SSYTRI2X)
                      ("SSYTRI_3" "ssytri_3_" %%SSYTRI_3 %SSYTRI_3)
                      ("SSYTRI_3X" "ssytri_3x_" %%SSYTRI_3X %SSYTRI_3X)
                      ("SSYTRI_ROOK" "ssytri_rook_" %%SSYTRI_ROOK %SSYTRI_ROOK)
                      ("SSYTRS" "ssytrs_" %%SSYTRS %SSYTRS)
                      ("SSYTRS2" "ssytrs2_" %%SSYTRS2 %SSYTRS2)
                      ("SSYTRS_3" "ssytrs_3_" %%SSYTRS_3 %SSYTRS_3)
                      ("SSYTRS_AA" "ssytrs_aa_" %%SSYTRS_AA %SSYTRS_AA)
                      ("SSYTRS_AA_2STAGE" "ssytrs_aa_2stage_"
                       %%SSYTRS_AA_2STAGE %SSYTRS_AA_2STAGE)
                      ("SSYTRS_ROOK" "ssytrs_rook_" %%SSYTRS_ROOK %SSYTRS_ROOK)
                      ("STBCON" "stbcon_" %%STBCON %STBCON)
                      ("STBRFS" "stbrfs_" %%STBRFS %STBRFS)
                      ("STBTRS" "stbtrs_" %%STBTRS %STBTRS)
                      ("STFSM" "stfsm_" %%STFSM %STFSM)
                      ("STFTRI" "stftri_" %%STFTRI %STFTRI)
                      ("STFTTP" "stfttp_" %%STFTTP %STFTTP)
                      ("STFTTR" "stfttr_" %%STFTTR %STFTTR)
                      ("STGEVC" "stgevc_" %%STGEVC %STGEVC)
                      ("STGEX2" "stgex2_" %%STGEX2 %STGEX2)
                      ("STGEXC" "stgexc_" %%STGEXC %STGEXC)
                      ("STGSEN" "stgsen_" %%STGSEN %STGSEN)
                      ("STGSJA" "stgsja_" %%STGSJA %STGSJA)
                      ("STGSNA" "stgsna_" %%STGSNA %STGSNA)
                      ("STGSY2" "stgsy2_" %%STGSY2 %STGSY2)
                      ("STGSYL" "stgsyl_" %%STGSYL %STGSYL)
                      ("STPCON" "stpcon_" %%STPCON %STPCON)
                      ("STPLQT" "stplqt_" %%STPLQT %STPLQT)
                      ("STPLQT2" "stplqt2_" %%STPLQT2 %STPLQT2)
                      ("STPMLQT" "stpmlqt_" %%STPMLQT %STPMLQT)
                      ("STPMQRT" "stpmqrt_" %%STPMQRT %STPMQRT)
                      ("STPQRT" "stpqrt_" %%STPQRT %STPQRT)
                      ("STPQRT2" "stpqrt2_" %%STPQRT2 %STPQRT2)
                      ("STPRFB" "stprfb_" %%STPRFB %STPRFB)
                      ("STPRFS" "stprfs_" %%STPRFS %STPRFS)
                      ("STPTRI" "stptri_" %%STPTRI %STPTRI)
                      ("STPTRS" "stptrs_" %%STPTRS %STPTRS)
                      ("STPTTF" "stpttf_" %%STPTTF %STPTTF)
                      ("STPTTR" "stpttr_" %%STPTTR %STPTTR)
                      ("STRCON" "strcon_" %%STRCON %STRCON)
                      ("STREVC" "strevc_" %%STREVC %STREVC)
                      ("STREVC3" "strevc3_" %%STREVC3 %STREVC3)
                      ("STREXC" "strexc_" %%STREXC %STREXC)
                      ("STRRFS" "strrfs_" %%STRRFS %STRRFS)
                      ("STRSEN" "strsen_" %%STRSEN %STRSEN)
                      ("STRSNA" "strsna_" %%STRSNA %STRSNA)
                      ("STRSYL" "strsyl_" %%STRSYL %STRSYL)
                      ("STRTI2" "strti2_" %%STRTI2 %STRTI2)
                      ("STRTRI" "strtri_" %%STRTRI %STRTRI)
                      ("STRTRS" "strtrs_" %%STRTRS %STRTRS)
                      ("STRTTF" "strttf_" %%STRTTF %STRTTF)
                      ("STRTTP" "strttp_" %%STRTTP %STRTTP)
                      ("STZRZF" "stzrzf_" %%STZRZF %STZRZF)))

(COMMON-LISP:EXPORT
 '(%SLASDA %SLASDQ %SLASDT %SLASET %SLASQ1 %SLASQ2 %SLASQ3 %SLASQ4 %SLASQ5
           %SLASQ6 %SLASR %SLASRT %SLASSQ %SLASV2 %SLASWLQ %SLASWP %SLASY2
           %SLASYF %SLASYF_AA %SLASYF_RK %SLASYF_ROOK %SLATBS %SLATDF %SLATPS
           %SLATRD %SLATRS %SLATRZ %SLATSQR %SLAUU2 %SLAUUM %SOPGTR %SOPMTR
           %SORBDB %SORBDB1 %SORBDB2 %SORBDB3 %SORBDB4 %SORBDB5 %SORBDB6
           %SORCSD %SORCSD2BY1 %SORG2L %SORG2R %SORGBR %SORGHR %SORGL2 %SORGLQ
           %SORGQL %SORGQR %SORGR2 %SORGRQ %SORGTR %SORM22 %SORM2L %SORM2R
           %SORMBR %SORMHR %SORML2 %SORMLQ %SORMQL %SORMQR %SORMR2 %SORMR3
           %SORMRQ %SORMRZ %SORMTR %SPBCON %SPBEQU %SPBRFS %SPBSTF %SPBSV
           %SPBSVX %SPBTF2 %SPBTRF %SPBTRS %SPFTRF %SPFTRI %SPFTRS %SPOCON
           %SPOEQU %SPOEQUB %SPORFS %SPORFSX %SPOSV %SPOSVX %SPOSVXX %SPOTF2
           %SPOTRF %SPOTRF2 %SPOTRI %SPOTRS %SPPCON %SPPEQU %SPPRFS %SPPSV
           %SPPSVX %SPPTRF %SPPTRI %SPPTRS %SPSTF2 %SPSTRF %SPTCON %SPTEQR
           %SPTRFS %SPTSV %SPTSVX %SPTTRF %SPTTRS %SPTTS2 %SRSCL
           %SSB2ST_KERNELS %SSBEV %SSBEV_2STAGE %SSBEVD %SSBEVD_2STAGE %SSBEVX
           %SSBEVX_2STAGE %SSBGST %SSBGV %SSBGVD %SSBGVX %SSBTRD %SSFRK %SSPCON
           %SSPEV %SSPEVD %SSPEVX %SSPGST %SSPGV %SSPGVD %SSPGVX %SSPRFS %SSPSV
           %SSPSVX %SSPTRD %SSPTRF %SSPTRI %SSPTRS %SSTEBZ %SSTEDC %SSTEGR
           %SSTEIN %SSTEMR %SSTEQR %SSTERF %SSTEV %SSTEVD %SSTEVR %SSTEVX
           %SSYCON %SSYCON_3 %SSYCON_ROOK %SSYCONV %SSYCONVF %SSYCONVF_ROOK
           %SSYEQUB %SSYEV %SSYEV_2STAGE %SSYEVD %SSYEVD_2STAGE %SSYEVR
           %SSYEVR_2STAGE %SSYEVX %SSYEVX_2STAGE %SSYGS2 %SSYGST %SSYGV
           %SSYGV_2STAGE %SSYGVD %SSYGVX %SSYRFS %SSYRFSX %SSYSV %SSYSV_AA
           %SSYSV_AA_2STAGE %SSYSV_RK %SSYSV_ROOK %SSYSVX %SSYSVXX %SSYSWAPR
           %SSYTD2 %SSYTF2 %SSYTF2_RK %SSYTF2_ROOK %SSYTRD %SSYTRD_2STAGE
           %SSYTRD_SY2SB %SSYTRF %SSYTRF_AA %SSYTRF_AA_2STAGE %SSYTRF_RK
           %SSYTRF_ROOK %SSYTRI %SSYTRI2 %SSYTRI2X %SSYTRI_3 %SSYTRI_3X
           %SSYTRI_ROOK %SSYTRS %SSYTRS2 %SSYTRS_3 %SSYTRS_AA %SSYTRS_AA_2STAGE
           %SSYTRS_ROOK %STBCON %STBRFS %STBTRS %STFSM %STFTRI %STFTTP %STFTTR
           %STGEVC %STGEX2 %STGEXC %STGSEN %STGSJA %STGSNA %STGSY2 %STGSYL
           %STPCON %STPLQT %STPLQT2 %STPMLQT %STPMQRT %STPQRT %STPQRT2 %STPRFB
           %STPRFS %STPTRI %STPTRS %STPTTF %STPTTR %STRCON %STREVC %STREVC3
           %STREXC %STRRFS %STRSEN %STRSNA %STRSYL %STRTI2 %STRTRI %STRTRS
           %STRTTF %STRTTP %STZRZF)
 '#:MAGICL.LAPACK-CFFI)

;;; End of file.
